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T002 C 

Memory Test for 8090 Computer System // O ° U 



This memory test is used to test any arbitrary number of banks, up to the maximum 
number present, in an 8090 Computer System. It will test the storage in both the 8091 

Data Processor and the 8094 Auxiliary Memory. The prog ram may be located in any, ba nk. l£ 

will JLgstthe _ next bank in sequence by storing worst pattern in it, checking the patternT 
"Ih^ltSrT^anTThtcra 
tFTtfi^anlTwhTcirifaT^^ 

The pjrogram checks itself^via^^ checksum subroutine upon starting in a new bank, 
-.and . pripr _jfcfl_ t^ang£fi^ng x ,lts.elf tQ..J±e.nex£"£a^rin''"se^^nce.J. 1'f the Khap.ltmim ^q nnV 
correct, an error stop win w 

P = 0173 -* A = bits failing in program Z = 0000. 

The MCS mod e indicator indicates which bank the program is current ly^ in, When an error 
is detecte3"wKITe"ch"ecking worst pattern or its complement, a stop occurs with: 

A = bits failing in worst pattern 2 = 7700 A?--' ~ 




If the computer is placed in run again, it will stop again with: 

P = 0103""**? A = address failing in worst pattern Z = 7777. £*> '■'' n '-> ■ / ' A ' * *' -/Jje 

.I! 1 ?. bank Dein 8 tested will be indicated by. the MCS mode indicator when the IND button is 

_,.pii§hed,. 

Several optional stops are available to monitor the progress of the program. If 
Selective Stop 1 is selected, the computer will stop every time a new pattern is stored in 
the bank being tested. If Selective Stop 2 is selected, the computer will stop when worst 
pattern (not the complement pattern) is stored in the-bank being tested. If Selective 
Stop 4 is selected, the computer will stop when worst pattern (not the complement pattern) 
is stored in bank I,. At this time the program is located in bank 0. The selective stops 
may be selected in any desired combination. 

If Selective Jump 1 is selected, the bank containing the program and the bank being 
tested do not change. 

The program may be loaded into any bank that is present. The check sum for the 
paper tape is 0002. The tape loads from location rOOOO through r0175.__W^ej3^stj^ting the 
program it is necessary to set the relative bank selection only. The "direct and indirect 

baMF-fffffe^TTi'^ - ■-• 



ie program"." 




When starting the program the first time after it has been loaded from the paper 
tape, the highest bank number present must be entered in the A register. When the program 
is started following this, the A register may be clear, arid the" highest bank number used 
previously will be saved. 

An annotated program listing follows. The locations in parentheses are normally 
modified by the computer during execution of the program. 



^ i 



o^ 



8090-1 



T002 C 
Memory 



Test for 8091 Computer and 8094 Auxiliary Memory 



A. PA/. — CO 9 9 0000 <\ 
^JfTZ 000 1^ 

rfbN - oool 0002^- 

$fje. 9/ 0003^ 
#TT- f*£2 0004, <-" 
0005 
-XI006 
0007 

^ 0010 

0011 
0012 
0013 
0014 
0015 
0016 
&-■*■/? t'0017 



'(-> 



■;-< f~t 



?£ 0020, 
0021 
0022. 

0023#1&> 

0024 

0025 

0026 

0027 



0207 '■ ^'^f- a 

6003 Get Number of Highest Bank ^'A*^ 

0601 SrO~ aoaX. . .... 

4271,—- - *->&2.-3> -< -"« <vo VV <~ ^ / '**''^ -^^ -^ d 

7100 Enter Check Sum Subroutine 
0143»" ^ 
0130 

0207. — oc»y-v$ 

ft) } : ft f> ( * 



o6oi y - y^^ y& ff}'i 4 '' ■*?£( 

1474 v Set IND to Next Bank in Sequence 

6002 

1474 </ 



4- J 



0320- - < 
4201 - 
(0000) "•/£>'" 
0400 o - ; * **1 " 

4076 <•' ~^'/fc' 
0400 '? ~> $ 

4077 r -»" 77 
; 2076 

4177 
5477 
6011- 
1071 



-7 



'-.' 



A : 



//.*".«<} 



-•"^ 



, '7 ** 



-? 7 - 



Write Pattern in Bank < — :"' ~ > f* 7 
Locations 0000 through: 7776 . ( ' ? ' J -f i 



1 ■"■ o 



0030 
0031 
0032 
0033 
0034 
0035 
0036 
6037 



6003 
0277 
6407 
2476 
4076 
7101 
0023 
2476". 



0040 4172 Store Pattern at Location 7777 

0041 6310 

0042 0130 Determine Stop Options 

0043 0207 

0044 6104 

0045 7704 Selective Stop 4 Stop on Full Cycle thru Max. Number of Bank 

0046 0001 

0047 0001 



0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 



7702 
7701 
0400 
4077 
2076 
1577 
6122 
5477 



Selective Stop 2 Stop on Every Bank 
Selective Stop 1 Stop on Every Pattern 
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"£.... 



C 

...3 



f(S *& 



/ 





0060 


6026 V 




0061 


1071 




0062 


6003 - 




0063 


0277 




0064 


6410 




0065 


2476.k. 




0066 


4076.- 




0067 


7101.- 




0070 


0054- 




0071 


0777 




__^-P> 0Q,72 


7777 




^ 007§ 


5424 




. _~^0074' 


(0000) 




^?0075 


0176 




0076 


(0000) 




>0077 


(0077% 




0100 


2177 




0101 


7700 




0102 


2077 




0103 


7777 




0104 


7101 




0105 


0057 




0106 


2476_ 




0107 


6567 




0110 


7100 




0111 


0143 




0112 


4077 




0113 


7710 




0114 


0006 




0115 


0130 




0116 


0207 




0117 


0320 




0120 


4212 




0121 


0320 




0122 


0601 




0123 


1474 




0124 


6002 




0125 


1474 




0126 


0320 




0127 


4205 




0130 


0330 




0131 


4210 




0132 


(0000) 




0133 


2177 




0134 


(0000) 




0135 


4177 




0136 


5477 




0137 


1475 



Check Pattern 






/^P 



n / 



Constant =7777 "" 

Check Sum Adjustment ,._ ,,/'" 

Highest Bank Number Allowable + 1 

Constant = Number of Words in Program 

Test Word 

Test Address / 

""""•""*"»— ..,.,, _/*' 

Error Stop - Indicate Bits Which Failed 

Stop - Indicate Location of Failure 
Check Next Word 



Repeat Program for Both Patterns 

Enter Check Sum Subroutine 
When Both Patterns are Checked 

Test Selective Jump for Bank Change 



Set Bank Change Instructions 



Transfer Program to Next Bank 



8090-3 






Hi 



0140 

0141 

0142 

0143 

<S 77? 0144 

^■p*/ - ^y 0145 

,,„.«**»0146 

SC fi^6. 0147 



\fi,Ktr 



> , ,-f £• 0150 
V-£ 0151 
'^JW'^9152 
<?^ f 0153 
0154 
0155 
0156 
0157 



0160 
0161 
-j 0162 
0163 
0164 
0165 
0166 
0167 

0170 
0171 
0172 
0173 
0174 
0175 



6506 
(0000) Jump to Next Bank 

7 10.1 ^ Exit Check Sum Subroutine 
(0000 X Entrance Check Sum Subroutine" 

0130' " ( e>e-&-s, 



0207 — 
0360- — 
4201. 



C *" 1- 



JLC> iHf 



€"M. £L tte- 7 * 



v +,■■.. 



^A" /? /6*£& 



) 



(0000) Set All Bank Selections Same as Relative 
0400 •' #** 
401-6 s Clear All Locations Modified by Program 

4321 > /- n 

4320.5/^- 2c ff^eJly ~~" '-■ 

4314 t?T2 ~ ^F <^<W ') ^ o 
4306 <Z7"B-$&- &/&*& -> « 



4300 



Clear Previous Check Sum 



<i* 



s/s 



{•?1~>i) 4- > "5> ?"?^7 



A-^cm 



4077' Set Initial Address ^1 4 T7 J 

2177.. (tZ-^ ft 

5300 Form Check Sum Location 07777 

5477 ^ r 0^^^-77, ri 

1475, ^« JTy<" fr^^/'^J "*•* 

6504 <***a -*/ L - 

2723. Subtract Exit Address from Check Sum A ~~~ N_i..,l. /;;,'/* £ ''' 
3474 Subtract Maximum Bank Number + 1 from Check Sum \ 

7 7 7 / 



5300" 

0702" " J"-^7' 2- f ''<■') - '/"•'"■V 

6430 */ Exit if Check Sum is OK 

0000 Check Sum Error 

6501 Hang up on Check Sum Error 

6433 Unless A Register is Cleared 



"> ) 



/-f 



^f: 
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NUMBER: T002-A 

TITLE: Memory Test - Worst Pattern 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 

PURPOSE 

The memory test creates in memory the pattern of information which will cause the 
memory to be most susceptible to internally generated noise. 

DESCRIPTION 

1. See flow chart. 

2. Noise will be detected by the picking up or dropping bits in a location. 

3. The test does a check sum periodically to determine if the program has picked up 
or dropped bits. 

4. The test uses both banks of memory; one bank for the program, the other bank for 
the worst pattern information. 

The program and worst pattern information alternate between banks. If the program 
is in bank the worst pattern information is in bank 1. 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



Paper Tape 

0000 

0162 

0001 

0000 



HALTS 
0000 
7700 
7707 

7777 



EXPLANATION 

Check sum error at 0160. 

Incorrect data in A at 0052. 

Optional stop after one pass at 0031. 

Address of incorrect data in A at 0054. 

The program will stop if any error occurs. Check with the coding 
sheet to locate cause of error. With any SLS switch ON, the program 
will stop each time the worst pattern has been written in memory. 
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Return jump 
to check 
*^ sum subroutine 

0000-0001 



<D 



d> 



Memory bank 
selection to A 

0132 



Form 006 (xx4 + xxO) 
instruction and 
store forward 

0133-0135 



Shift the direct and 
indirect to the current 
rel. bk. selection 

0136 



Restore modified- 

program address 

to zero 

0137-0146 



o 

I 

> 

to 



Subtract return jump 

entrance address + 1 

from the sum 

0154-156 



No 



Sum 
Completed 



Check for 
A / _ 
Jump on TF 
0153 



Update the 
addend address 
and subtract 163 

0151-0152 



Form the sum of the 
contents of - addresses 

0000-0152 

0147-150 



Yes 



Not all 163 addresses 



have been added 



Check for 

A = 

Jump on 

0157 



Check sum 
is correct 



Yes 



No 



Incorrect 
check sum 




Jump forward indirect 
to address 0002 if this 
is the first bank to be 
checked 

0130-0131 



<D 



Jump forward indirect to 
address 0104 if this is the 
second bank to be checked 



0130-0131 



O 



This part of the program forms a check sum 
of 0000 by taking the sum of the program 
contents (addresses 0000-0162) and subtract- 
ing the jump entrance address plus one from 
this sum. In this manner, a check is made 
to see if the program has been modified. 



d> 



Memory bank 
selection to A 

0002 



Form 002(xxl+ xxO) 
instruction and store 
it forward 

0003-0005 



Shift the indirect bank 
opposite of the rela- 
tive and direct banks 

00006 



Update the 

storage 

address 

0015 



Store 0000 or 7777 in 
locations in the indirect 
bank 

0013-0014 



Check for 
A = 
0016 
Jump on zero 



No 



7776 

locations 

filled 



o 



Yes 



Not all 
locations 
have been 
filled 



Shift the pattern for 
every 103 location 
and every lOOg location 

0017-0026 



Set address 
0077 to 0000 

0011-0012 



Set address 

0076 to 0000 

or 7777 

0007-0010 







Store 0000 or 
7777 in location 
7777 

0027-0030 




This shifts the indirect bank selection 
opposite of the current relative and 
direct bank selection. It than lays a 
pattern of alternate 0000's and 7777's 
in the indirect bank. The pattern 
changes every 10 g and every 100_ 
locations . 



& 



This checks the pattern that has just 
been layed out for errors, and halts 
with the A register containing incorrect 
data. Upon hitting the run switch, the 
computer will halt with the A register 
containing the address of the incorrect 
data. Hit run again to continue checking. 



Set address 
0077 to 0000 

0032-0033 



Compare indirect bank 
contents against proper 
number by logic sum 

0034-0035 



{Check for 
A*0 
0040 _ 
Jump on 

No error 



Shift the check number 
to correspond to the 
pattern of the indirect 
bank 

0041-0050 



No 



Have not 
checked all 
locations 



Check for 
A = 
0040 
Jump on 



Yes 

All locations 
have been 
checked 



No 



Update the 
address to 
be checked 

0037 



Yes 



Error 



Load A register 
with incorrect 
data 

0051 




Load A register with 
address of incorrect 
data 

0053 



Jump forward indirect 
to address 0037 to 
continue checking the 
pattern 

0055-0056 




o 



Load A register 
with the contents 
of address 0076 

0100 



Check for 

A 4 

Jump on 

0101 



Yes 



5 



Pattern has 
been reversed 
and checked 
No. 



Go back and 
reverse pattern 
and check 



Return jump^ 
to check sum ' 
subroutine 

0102-0103 



<D 



This changes the beginning pattern number from 0000 to 7777, 
and jumps back to lay out a pattern in the indirect bank that is 
the complement of the first pattern. Upon completing this and 
checking it, the program makes a return jump from address 
0103 into the check sum subroutine. 




o 

I 

> 



Restore address 0077 to 
zero, and do a memory 
bank selection to A 

0104-0105 



Form 002(xxl + xxO) 
instruction and store 
it forward 

0106-0110 



Form 002(xx0 + xxl) 
instruction and st ore 
it forward 

0111 0112 



Store indirect 
the contents of 
0000-0162 

0116 



Shift the indirect bank 
selection opposite of the 
relative and direct bank 
selection 

0115 



Load A register 
with contents 
of 0000-0162 

0114 



Shift the indirect bank 
to the current relative 
and direct bank selection 

0113 

* 



Update the address loca- 
tion, and check to see if 
all 163 locations are 
transferred 

0117-0120 



Check for 

A i 

Jump on U 

0121 



Yes 



Not all 163 locations 
have been transferred 



Transfer the program into 
the other bank and begin at 
address 0000. This will 
check the bank the program 
was just transferred from. 



















163 locations have 
been transferred 


No 


Form 001(xx0 + xxl) 
instruction and store 
it forward 

0123-0125 




Load A register 
with 0000 

0126 




' 


1 








Memory bank 
selection to A 

0122 
















V 






The program will 
now be operating in 
the opposite bank 




Shift relative bank 
selection to opposite 








o- 




bank A-*P=0000 
0127 



160-A MEMORY TEST 



0000 


7100 


Enter check sum subroutin< 


0001 


0131 


Location check sum subrou' 


0002 


0130 




0003 


0207 


Select indirect selection 


OOOl* 


0321 


to opposite memory bank 


0005 


1*201 


of module 


0006 


(002X) 




0007 


01*00 




0010 


1*076 


Set initial data 


0011 


OltOO 


Set starting address 


0012 


1*077 




0013 


2076 




OOll* 


1*177 




0015 


51*77 




0016 


6011 


Finished setting pattern 


0017 


0277 




0020 


6003 




0021 


0207 




0022 


61*07 




0023 


21*76 




0021* 


1*076 




0025 


7101 




0026 


0013 




0027 


21*76 




0030 


1*151* 




0031 


7707 


Optional stop 


0032 


01*00 




0033 


1*077 




0031 


2076 




0035 


1577 




0036 


6113 


Error detected 


0037 


51*77 




00i*0 


601*0 


Pattern checked: See if I 


OOltl 


0277 




00l*2 


6003 




00l*3 


0207 




001*1* 


61*10 




ooi)5 


21*76 




001(6 


1*076 




00l*7 


7101 
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160-A MEMORY TEST 



0050 
0051 
0052 

00^3 
005k 

0055 

0056 

0057 

0060 
0061 
0062 
0063 

0061* 

0065 
0066 
0067 

0070 
0071 
0072 
0073 
0071* 

0075 
0076 

0077 

0100 
0101 
0102 

0103 
010L 
C105 
0106 
0107 

0110 
0111 
0112 
0113 

oiilj 

0115 



0117 



003I1 

2177 
7700 
2077 
7777 
7101 
0037 
0037 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 

1311 
0163 

0000 

0077 

2hie 

6571 
7100 
0131 
1+077 
0130 
0207 
0320 

1+203 

0301 

1*203 
(002X) 

2177 
(002X) 

10.77 
51+77 



Error stop. Bit data in A 

Display address of location that failed 
Test next location 



Check sum constant 

Final address 

Data 

Current address 



Lay down complement worst pattern 
^nter check sum subroutine 
Location of check sum subroutine 
Reset initial address 



Set bank selection up to transfer 
program to other bank 



Transfer program to other 
bank 
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160-A MEMORY TEST 



0120 


3ii75 


0121 


6506 


0122 


0130 


0123 


0207 


012l| 


0311 


0125 


L202 


0126 


Ol!00 


0127 


(001X) 


0130 


7101 


0131 


(xxxx) 


0132 


0130 


0133 


0207 


013li 


0360. 


0135 


2i201 


0136 


(006X) 


0137 


OiiOO 


OliiO 


I1OO6 


01U 


1026 


0U2 


14325 


011*3 


h31h 


OllOi 


Ii306 


011.5 


li300 


oil*6 


1*077 


0U7 


2177 


0150 


5300 


0151 


51i77 


0152 


31(75 


0153 


650ii 


015I1 


2723 


oi55 


5300 


0156 


0701 


0157 


61i27 


0160 


0000 


0161 


7101 


0162 


0160 


0163 


0000 


016I1 


0000 


0165 


0000 


0166 


0000 


0167 


0000 



Repeat pro-am in other bank 
Check sum entrance 



Set all bank selections to relative bank 

Clear all locations 
Modified by program 



Clear previous check sum 
Set initial address 



Form check sum in location 07777 

Substract exit address from check sum 

Exit if check sum if OK 

Check sum error 

Han^ up on check sum error 
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NUMBER: T034-A 

TITLE: Logic Test 

CATEGORY: 160 -A 
MINIMUM EQUIPMENT NEEDED: 



160-A 



PURPOSE 

This program will test the instructions not checked by Input/Output tests, Buffer tests, 
and Memory bank selection tests. 



1. See flow chart. 



DESCRIPTION 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 



Paper Tape 
0000 
3772 
(0160N V*' 
0000 in bank 



Spares located from 2100 to 3500 



HALTS 

3677 through 3702 



P = 3705, Z = 7777, 
A = 0000 



EXPLANATION 

Memory locations containing selective stops. With any selective 
stop up, the program will run approximately 30 seconds and stop 
at the appropriate selective stop. 

If no selective stop or selective jump switches are up, the pro- 
gram running time will be determined by the count in memory 
location 1375 as follows: 

The complement of the contents of memory location 1375 con- 
verted to decimal and multiplied by 30 seconds determines the 
running time. 



Program stop 

Memory Location 



1375 - Running time 
7776 - 30 seconds 



160-A:9 



HALTS 



EXPLANATION (Cont'd.) 

7 767 - 4 minutes 

0000 - 34 hours, 15 minutes 

Running time may also be controlled with (SLJ) selective jump 
switches. 



Switch 


Position 


Program Run time 


SLJ1 


UP 


1 minute 


SLJ2 only 


UP 


2 minutes 


SLJ4 only 


UP 


4 minutes 



P = 3705, Z = 7777 
A = 0000 



Program stop 

If an error occurs in this test, "A" register will display the 

most logical instruction that failed. 

If an error occurs or if a master clear follows a stop other 
than the stops described, it may be necessary to reload the 
program. 



160-A:10 



00000 



^2206 

^161 " 

"}0400-% 

71Q1£- 

0100 . 

0000. 



A 





• J 



'7 7 



"Load A with content of 0005 -761*3 (A) 

Store Content of A in location 7777 which is stored at 0060 
Store A at location 35>Ol* 
Load A with 0000 
Jump to location 0100 



00010 0000 
)<004l 
0000 
0000 
0000 
0000 
0000 
0000 



00020 



0000 
0000 
0000 
0000 
0000 
>372^ 
0000 
0000 



00030 0000 
0000 
0000 
0000 
0000 
0000 
<0530 
f 0067 

00040 ^4062 
*5'*73 

jj^3 

jt.1171 

•+1230 
>0000 

00050 ^.303 

^1355 

'°f070 
f-315 

ioooo 
^0000 
•^oooo 

\flOOOO 



160-A:11 



-p*J 



G0060 



00070 



00100 



00110 



00120 



00130 



777?^ 


-; r- ry 


350b V 


, 


oooOi-y; 


>'\ 


00004 




OOOOmj 
0000 if 






oooo y 
I673v|^ 




0000 




0000 ^ 




0000 1 




0000 <k 

0000-4 




0000 V 




oooot 




0000 | 




6005 


If A. - Jump to 0105 


Oii60 


Load A with 0060 


0000 


Error Stop 


01*65 


Load A with 0065 


0000 


Error Stop 


6502 


If A / Jump to 0103 


6205 


If A is pos. Jump to C113 (0 


01+62 


Load A with 0062 


0000 


Error Stop 


cm67 


Load A with 0067 


0000 


Error Stop 


6702 


If A is neg. Jump to Oil". 


0577 


Load A with 7700' 


6105 


If A is non-zero Jump to 0122 


Olt6l 


Load A with 0061 


0000 


Error Stop 


Oii61i 


Load A with 0061+ 


0000 


Error Stop 


61+02 


If A - Jump to 0120 


6305 


If A is neg. Jump to 0130 


01*63 


Load A with OO63 


0000 


Error Stop 


01+66 


Load A with 0066 


0000 


Error Stop 


6602 


If A is pos. Jump to 0126 


0110 


Left shift 3 places 


6303 


If A is neg. Jump to 0135 


OI+63 


Load A with OO63 


0000 


Error Stop 


0110 


Left shift 3 places 


6205 


If A is pos. Jump to 011+3 


01+62 


Load A with 0062 



A-0000 



is pos. ) 



A-7700 



A-7007 



A-0077 



60- A: 12 



ooilo 0000 
Oi+67 

0000 
6702 

ol+oo" 
(>>■'' I -*£°°5 

If "'■ 'i\W "^Ql+OO 
6003 

00150 ouou 

0000 
2307 
6301+ 
01+23 
0000 

1075 

2301 

00160 3315 
6003 

01*33 

0000 
2706 
3307 
6003 
01+27 



Error Stop 

Load A with 0067 

Error Stop 

If A is neg. Jump to Oll+l 

Load A with 0000 

If A - Jump to 0152 

Load A with 0000 

If A - Jump to 0152 

Load A with 0001+ 

Error Stop 

Load A with the content of 011+3 

If A is neg. Jump to 0157 

Load A with 0023 

Error Stop 

Load A with the content of 0156 

Add to A the content of 011+3 

If A - Jump to 0161+ 

Load A with 0033 

Error Stop 

Load A with covcp 

Add content of ..'. 

If A - Jump to 

Load A with 0027 



errant of content of Loc. 0156 
z, 0156 to content of A 

0171 



A-0077 
A-0000 



A-6702 

A-1075 
A-0000 



A-6702 
A-0000 



00170 0000 Error Stop 

2313 Load A with the content of 0156 

3711+ Subtract cont. of 0156 from A 

6003 If A - Jump to 0176 

01+37 Load A with 0037 

0000 Error Stop 

2320 Load A with content of 0156 

1+035 Store content of A at Loc. 0035 

00200 3li35 Subtr. cont. of 0035 from A 

6003 If A - Jump to 0201+ 

0L+3U Load A with 0031+ 

0000 Error Stop 

2313 Load A with cont. of 0171 

0102 Left shift 1 

6303 If A is neg. Jump to 0211 

01+01 Load A with 0001 

00210 0000 Error Stop 

0102 Left shift 1 

6203 If A is pos. Jump to 0215 

01+01 Load A with 0001 

0000 Error Stop 

0102 Left shift 1 

6203 If A is pos. Jump to 0221 

01+01 Load A with 0001 



A-1075 
A-0000 



A-1075 
A-1075 

A-0000 



A-2313 
A-l+626 



A-il+55 



A-3132 
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00220 0000 


Error Stop 




0102 


Left shift 1 




6303 


If A is neg. Jump to 022$ 


oUoi 


Load A with 0001 




0000 


Error Stop 




0102 


Left shift 1 




6303 


If A is neg. Jump to 0231 


OUOI 


Load A with 0001 




00230 0000 


Error Stop 




0102 


Left shift 1 




6203 


If A is pos. Jump to 023$ 


0U01 


Load A with 0001 




0000 


Error Stop 




0102 


Left shift 1 




6203 


If A is pos. Jump 


to 02U1 


0U01 


Load A with 0001 




002U0 0000 


Error Stop 




0102 


Left shift 1 




6303 


If A is neg. Jump 


to 02U$ 


0U01 


Load A with 0001 




0000 


Error Stop 




0102 


Left shift 1 




6203 


If A is pos. Jump 


to 02$1 


0U01 


Load A with 0001 




00250 0000 


Error Stop 




0102 


Left shift 1 




6303 


If A is neg. Jump 


to 025$ 


0U01 


Load A with 0001 




0000 


Error Stop 




0102 


Left shift 1 




6303 


If A is neg. Jump 


to 0261 


0U01 


Load A with 0001 




00260 0000 


Error Stop 




0102 


Left shift 1 




620U 


If A is pos. Jump 


to 0266 


0U01 


Load A with 0001 




0000 


Error Stop 




0U0U 






2301 


Load A with cont. 


of 026$ 


0110 


Left Shift 3 




00270 6303 


If A is neg. Jump to 0273 


0U01 


Load A with 0001 




0000 


Error Stop 




0110 


Left shift 3 




6203 


If A is pos. Jump 


to 0277 


0U01 


Load A with 0001 




0000 


Error Stop 




0110 


Left shift 3 





A-626U 



a-U5$i 



A-1323 



A-26U6 



A-SSlU 



A-3231 



A-6U62 



A-$lU$ 



A-2313 



A-0U0U 
A-U0U0 



A-0U0U 



A-U0U0 
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00300 6303 If A is neg. Jump to 0303 

0401 Load A with 0001 

0000 Error Stop 

0110 Left Shift 3 

6203 If A is pos. Jump to 0^07 

0401 Load A with 0001 

0000 Error Stop 

2303 Load in A the content of O30U 



00310 1301 
6203 
OU13 
0000 
0102 
6303 
0413 
0000 



00350 0102 
6203 



Log. prod of A and contents of 0307 

If A is pos. Jump to O^lh 

Load A with 0013 

Error Stop 

Left Shift 1 

If A is neg. Jump to 0320 

Load A with 0013 

Error Stop 



00320 0102 Left Shift 1 

6203 If A is pos. Jump to O32I4 

0413 Load A with 0013 

0000 Error Stop 

0102 Left Shift 1 

6203 If A is pos. Jump to 0330 

0413 Load A with 0013 

0000 Error Stop 

00330 0102 Left Shift 1 

6303 If A is neg. Jump to 0^31* 

0413 Load A with 0013 

0000 Error Stop 

0102 Left Shift 1 

5203 If A is pos. Jump to 03li0 

0413 Load A with 0013 

0000 Error Stop 

00340 0102 Left Shift 1 

o203 If A is pos. Jump to OUh 

0413 Load A with 0013 

0000 Error Stop 

0102 Left Shift 1 

6203 If A is pos. Jump to 0?50 

0413 Load A with 0013 

0000 Error Stop 

Left Shift 1 

If A is pos. Jump to 0351l 

0413 Load A with 0013 

0000 Error Stop 

0102 Left Shift 1 

6203 If A is pos. Jump to O36O 

0413 Load A with 0013 

0000 Error Stop 



A-0U0ii 

A-6203 
A- 2203 

A-U406 

A-101$ 
A-2032 

A-1+06U 
A-0l£l 

A-0322 
A-06lUi 

A-1510 
A-3220 
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00360 



00370 



ooUoo 



00410 



00420 



00430 



0102 


Left Shift 1 


6303 


If A is neg. Jump to O36I4 


0U3 


Load A with 0013 


0000 


Error Stop 


0102 


Left Shift 1 


6303 


If A is neg. Jump to 0370 


0413 


Load A with 0013 


0000 


Error Stop 


2307 


Load A with content of O36I 


1764 


Logical sura of A and content of 0305 


6303 


If A is neg. Jump to 0^75 


Oto7 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6303 


If A is neg. Jumo to OljOl 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6203 


If A is pos. Jump to 0405 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6303 


If A is neg. Jump to 01*11 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6303 


If A is neg. Jump to 0145 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6303 


If A is neg. jump to 0421 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6203 


If A is pos. Jump to 0425 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6203 


If A is pos. Jump to 0431 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6203 


If A is pos. Jump to 0435 


0417 


Load A with 0017 


0000 


Error Stop 


0102 


Left Shift 1 


6203 


If A is pos. Jump to 0U4l 


0417 


Load A with 0017 



A-6440 



A-5101 



A-6303 

A-6'702 



A-5605 



A-3413 



A* 7026 



a=6055 



A-4133 



A-0267 



a-0556 



A-1334 



A-2670 



160-A:16 



00440 0000 
0102 

6303 
0417 
0000 
0102 
6204 
0417 

00450 0000 
5252 
2J01 
6203 
0427 
0000 
0102 
6303 

00460 0427 
0000 
0102 
6203 

0427 

0000 
0102 
6303 

00470 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00500 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00510 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 



Error Stop 

Left Shift 1 A-5560 

If A is neg. Jump to 0445 

Load A with 0017 

Error Stop 

Left Shift 1 A-3341 

If A is pos. Jump to 0452 

Load A with 0017 

Error Stop 

Load complement of content 0451 A-2525 

If A is pos. Jump to 0456 

Load A with 0027 (0446) cont. during 46 instr. check 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0462 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 0466 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0472 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 0476 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0502 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 0506 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0512 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 05l6 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0522 
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00520 



00530 



005^0 



00550 



00560 



00 570 



OhZJ 
0000 
0102 
6203 
0U27 
0000 
0102 
6303 

0U27 
0000 
O.'iOU 

0704 
0003 
0U07 

0000 

7101 
0563 

2211 
^366 
2301 
070U 
^303 
3607 
6506 

k6ok 
6576 
OU46 
0000 
5252 
^306 

0^27 
0530 

0^50 

0563 
0566 
2301 

6521+ 
2305 
1+327 

2312 
U136 

2036 
0701+ 
4036 
1715 

6506 
2320 



Load A with 0027 (OW16) 

Error Stop 

Left Shift 1 

If A is pos. Jump to 0526 

Load A with 0027 (0UU6) 

Error Stop 

Left Shift 1 

If A is neg. Jump to 05? 2 

Load A with 0027 (0UU6 ) 

Error Stop 

Load A with 000U 

Subtr. OOOi; from content of A 

If A-0 Jump to 0537 

Load A with 0007 

Error Stop 

Jump to Loc. stored in 05U0 

0566 

Load A with content of 0552 
Store content of A at Loc. 0lj5k 
Load A with content of 05U2 
Subtr. OOOI4. from content of A 
Store content of A at 0$\\2 
Subtr. content of 0555 from A 
If A / Jump to 05U1 

Shift Left 1 the content of Loc. 055U 

If A / Jump to 01^3 

Load A with 001*6 

Error Stop 

2525 



Load A with content of 0562 
Store content of A at Loc. 051*0 
If A / Jump to 05U1 
Load A with content of 0561 
Store content of A at Loc. 05^0 

Load A with content of 0556 

Store content of A in Loc. stored at Loc. 

Load A with the content of Loc. OO36 

Subtract 000U from A 

Store content of A in Loc. OO36 

Logical sum of A and content of Loc. 0560 

If A / Jump to Loc. 0570 

Load A with content of Loc. 0557 



0036 



A- 25 25 



A-5252 



A-000U 

A-0000 



A-Ol+1+6 
A-0l|ii6 
A-U366 
A-U362 
A-U362 
A-005U 



A-2525 



A-0566 
A-0566 

A-0563 



A-Oii27 

A-0530 
A-052li 

A-0171 

A=0530 



160-A:18 



o, 






00600 k036 
2725 
4326 
6103 
2525 
:•. TT7T 
>/ o46o 

5345 

00610 2303 
3705 
6303 
0437 
0000 
0102 

6203 

0^37 
00620 0000 

0102 

6303 
OU37 
0000 
0102 
6203" 
01+37 

00630 0000 

0102 

6303 
0437 
0000 
0102 
6203 
0^37 

00640 0000 
0102 

6303 
0437 

0000 
0102 
6203 
0^37 

00650 0000 

0102 
6303 
0^37 
0000 
0102 
6203 
0^37 



Store A at Loc. OO36 

Load Compl. of content of Loc. 055k 

Store A at Loc. 055U 

If A / Jump to O606 

Load Compl. of content of Loc. stored at 0025 

Stop 

Load A with 0060 

Add to content of Loc. 05U2 

Load content of 0605 

Subtr. content of Loc. 060l* from A 

If A is neg. Jump to 0615 

Load A with 0037 (12?U) 

Error Stop 

Left Shift 1 

If A is pos. Jump to 0621 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0625 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to O63I 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0635 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is pos. Jump to 06U1 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is neg. Jump to 0645 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to 0651 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0655 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is pos. Jump to 0661 

Load A with 0037 



A-0530 
A-5252 



A-7325 

A-0060 
A-ltf66 

A- 7777 
A-5252 



A-2525 



A5252 



A-2525 



A-5252 



A-2525 



A-5225 



A-2525 



A-5252 



A-2525 



160-A:19 



oo66o 



00670 



00700 



0000 
0102 
6303 
0437 
0000 
0102 
6203 
0437 

0000 
7101 
0721 
2217 
4361 
2301 
0704 
4303 

3613 
6506 

2205 
3205 
6572 
0432 
0000 
4016 



Error Stop 

Left Shift 1 

If A is neg. Jump to 0665 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to 0671 

Load A with 00? 7 

Error Stop 

Jump to Loc. stored in 0672 

072U 

Load A with content of Loc. 0712 

Store contents of A in 0613 (0617) 

Load A with the contents of Loc. 06 74 

Subtr 0004 from contents of A 

Store contents of A in Loc. 0674 

Subtr. from A the contents of Loc. 0713 

If A / Jump to 0673 

Load A with contents of Loc. 0707 

Add to A contents of Loc. 0710 

If A / Jump to 0612 

Load A with 0032 

Error Stop 



A-5252 



A-2525 



A-0432 
A-0432 
A-4361 
A-1^55 



A=0054 

A-4016 

A=5252 



00710 



00720 



00730 



1234 

0437 
0432 
4301 
4361 
0607 
0667 
0721 

0724 
2301 
4330 
6530 
2310 
4331 
2307 
4335 

2317 
4137 
2037 
0704 

4037 
3720 
6506 
2321 



Load A with contents of Loc. 0720 
Store Contents of A at Loc. 0672 
If A / Jump to 0673 
Load A with contents of Loc. 0714 
Store contents of A at Loc. 0674 
Load A with contents of Loc. 0717 
Store contents of A at Loc. 0672 

Load A with contents of Loc. 0711 

Store A at Loc. stored in 00^7 (0667) 

Load A with contents of Loc. 0037 

Subtr. 0004 from A 

Store A at Loc. 0037 

Subtr. 0607 from A 

If A / Jump to 07^0 

Load A with contents of Loc. 0716 



A-0724 

A-U.361 
A-0721 

A-0437 

A-0667 
A-O663 

A-0667 



160-A:20 



00740 4037 
0425 
0252 
0652 
0225 
6002 
0000 
2452 

00750 1052 
6003 
o4io 
0000 

2233 
1111 

— 6107 
2302 

00760 1206 
6io4 

2204 
1306 
6003 

— 0000 

6666 
0452 

00770 0352 
0625 

0325 
6002 
0000 
2714 
1467 
6003 

01000 0414 
0000 

2371 
1537 
6003 

0415 
0000 

2304 



01010 



1604 
6oo4 
04l6 

0000 

1537 

2041 

3604 
6004 



Store A at Loc. 0037 

Load A with 0025 

Logical prod, of 0052 and A 

Add 0052 to A 

Logical prod, of 0025' and A 

If A - Jump to 0747 

Error Stop 

Load A with corapl. of contents of 0052 



A-0025 
A-0000 
A-0052 
A-0000 



A-0707 
A-0000 



Logical prod, of content of 0052 and A 

If A - Jump to 0754 

Load A with 0010 A-0010 

Error Stop 

Load A with contents of 1007 A-230U 

Logical prod, of A and contents of loc. stored at 0011 (5473)A-0OOO 

If A / Jump to 0765 

Load A with 1111 A-llll 



Logical prod, of A and contents of Loc. 0766 (6666) 

If A / Jump to 0765 

Load A with 6666 

Log. prod, of A and contents of Loc. 0755 (1111 ) 

If A - Jump to 0767 

Error Stop 

Load A with 0052 

Log. sum of A and 0052 

Add 0025 to A 

Log. sum of A and 0025 

If A - Jump to 0775 

Error Stop 

Load compl. of contents of Loc. 0761 

Log. sum of A and contents of 0067 (167** ) 

If A « Jump to 1002 

Load A with 0014 

Error Stop 

Load A with contents of Loc. 0711 

Log. sum of A and cont. of Loc. stored at 0037 (Ol^7)(066U) 

If A - Jump to 1007 

Load A with 0015 

Error Stop 

Load A with contents of Loc, 1003 

Log. sum of A and contents of 1014 (15^7) 
If A - Jump to 1015 
Load A with 0016 
Error Stop 

Load A with contents of Loc. 001+1 

Subtr. contents of Loc. 1022 from A (5473) 

If A - Jump to 1023 



A-0000 

A-6666 
A-0000 



A-0052 

A-0000 
A-0025 
A-0000 



A-1673 
A-0000 



A-0437 
A-0000 



A-1537 
A-0000 



A-5473 
A-0000 
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01020 01*20 
0000 
51(73 
2137 
360U 
6ooU 
01(21 
0000 

01030 0U37 
2205 
3710 
600k 

OU22 

0000 

52+73 

0552 

0101(0 360ll 
6001( 
ol*o5 
0000 
7725 
214(1 
3U0 
6OO3 

01050 OI42U 
0000 

2537 
3^23 
6003 
01(25 

0000 

2605 

01060 3^05 
600U 

01(26 
0000 

3323 
2305 
0616 
3703 

01070 6003 
0U06 

0000 
2735 
301(1 
6003 

0U30 

0000 



Load A with 0020 
Error Stop 

Load A with cont. of Loc. stored at 0037 
Subtr. cont. of Loc. 1030 from 103 (01^7) 
If A ■ Jump to 1031 
Load A with 0021 
Error Stop 



Load A with contents of Loc. IO36 
Subtr. from A cont. of Loc. 1022 (5U73 ) 
If A - Jump to 1037 
Load A with 0022 
Error Stop 

Load A with compl. of 0052 

Subtr. from A cont. of Loc. lOUij (7725) 
If A - Jump to 101(5 
Load A with 0005 
Error Stop 

Load A with compl. of cont. of Loc. 001(1 (51(73) 
Add to A cont. of Loc. IO36 (51(73) 
If A - Jump to 1052 

Load A with 002U 

Error Stop 

Load A with compl. of cont. of Loc. stored at 0037 (Ol(37 

Add to A cont. of Loc. 1030 (Ol(37) 0667) 

If A - Jump to 1057 

Load A with 0025 

Error Stop 

Load A with compl. of cont. of Loc. 1061( (3323) 



1053 (3323) 



Add to A cont. of Loc. 
If A - Jump to 1065 
Load A with 0026 
Error Stop 



Load A with cont. of Loc. 1060 

Add to A 0016 

Subtr. from A cont. of Loc. 106U (3323) 

If A - Jump to 1073 

Load A with 0006 

Error Stop 

Load A with compl. of cont. of Loc. IO36 (51+73) 

Add to A cont. of Loc. 001(1 (51(73) 

If A - Jump to 1100 

Load A with 003 

Error Stop 



A-OU37 
A-0000 



A-5U73 
A-0000 



A-7725 
A-0000 



A- 23 0l( 
A-0000 



A-73UO 

A-0000 



a-UIj5U 

A-0000 



A-3305 
A-3323 
A-0000 



A-230U 
A-0000 



160-A:22 



01100 2750 Load A with compl. of cont. of Loc. 1030 (Ol*37) 

313T Add to A cont. of Loc. stored at 0037 (0667) 

6003 If A - Jump to 1105 
O43I Load A with 0031 
0000 Error Stop 

2705 Load A with compl. of cont. of Loc. 1100 

3204 Add to A the cont. of Loc. 1112 (2750) 

6004 If A - Jump to 1113 

OHIO 0432 Load A with 0032 

0000 Error Stop 

2750 

2313 Load A with cont. of Loc. 1100 

0743 Subtr. from A 00l*3 

3710 Subtr. from A cont. of Loc. 1105 (2705) 

6003 If A - Jump to 1121 

0407 Load A with 0007 

01120 0000 Error Stop 

2363 Load A with cont. of Loc. IO36 

3441 Subtr. from A cont. of Loc. 001*1 (51*73 ) 

6003 If A - Jump to 1126 
O43J+ Load A with 0031* 
0000 Error Stop 

2376 Load A with cont. of Loc. 1030 

3537 Subtr. from A the cont. of Loc. stored at 0037 (0667) 

01130 6003 If A - Jump to 1133 

0435 Load A with 0035 
0000 Error Stop 

2304 Load A with cont. of Loc. 1127 (3537) 

3604 Subtr. from A cont. of Loc. 111*0 (3537) 

6004 If A - Jump to lliO. 

0436 Load A with 003 6 
0000 Error Stop 

3537 

2041 Load A with cont. of 00l*l 

4042 Store A at 001*2 

2041 Load A with cont. of 00l*l 

3442 Subtr. from A cont. of Loc. 00l*2 

6003 If A - Jump to 1150 

0440 Load A with 00l*0 

0000 Error Stop 

01150 2312 Load A with cont. of Loc. II36 

0001 Add 0001 to A 

1*137 Store A at Loc. 0667 (ind) 

2137 Load A with cont. of Loc. stored at 0037 (0667) 

3604 Subtr. from A cont. of Loc. Il60 (0l*37) 

6004 If A - Jump to 1161 

0441 Load A with 001*1 
0000 Error Stop 

160-A:23 



01140 



A-73l*0 
A-0000 



A-5027 
A-0000 



A-2750 
A-2705 
A-0000 



A-5173 
A-0000 



A-Ol*37 
A-0000 



A-3S 7 
A«0nO0 



» '51*73 

A*-:iJ3 
A^OOOO 



A-Ol*36 
A-Ol*37 

A-OU37 
A-0000 



on6o 



0437 
2305 
4206 

2707 
3204 

6007 

0442 
0000 



Load A with cont. of Loc. 1154 

Store A at Loc. 1170 

Load A with corapl. of cont. of Loc. 1154 (360U) 

Add to A the cont. of Loc. 1170 (3604) 

If A - Jump to 1174 

Load A with 0042 

Error Stop 



A-360it 

A-U173 
/■0000 



01170 



0000 

7507 
2470 
7507 
4443 
3702 
6003 

0444 



Shift 1 cont. of Loc. 0043 ( 761*3 ) 
Subtr. from A cont. of Loc. 1173 (7507) 
If A - Jump to 1201 
Load A with 0044 



A- 750? 
A-000C 



01200 



0000 

2306 

0102 
^310 
k<jkk 
3712 
o004 
041+5 



Error Stop 

Load A with cont. of Loc. 1173 (7507) 

Left shift 1 > 

Store A at Loc. 1173 

Shift 1 left cont. of Loc. stored at 0044 (1171) 

Subtr. from A cont. of Loc. 1173 (7207) 

If A - Jump to 1212 

Load A with 0045 



A-7507 
A-723-7 
A- 7? 17 
A-7217 
A-0000 



01210 



01220 



01230 



0000 

4321 
2320 

0102 
4322 
2304 
0102 
4206 

4707 
3604 

6007 
0447 
0000 
0643 
5624 
0435 

0435 
2303 
0617 
4305 
0417 
5045 
3710 
6003 



Error Stop 

0643 

Load A with cont. of Loc. 1172 

Left shift 1 

Store A at Loc. 1172 

Load A with cont. of Loc. 1211 

Left shift 1 

Store A at Loc. 122? 

Shift left 1 cont. of Loc. 1211 

Subtr. from A cont. of Loc. 1225 (O6I43) 

If A - Jump to 1231 

Load A with 0047 

Error Stop 

5643 



526 

Load A with cont. of Loc. 1226 

Add to A 0017 

Store A at Loc. 1226 

Load A with 0017 

Add to A cont. of Loc. 0045 and store at 0045 

Subtr. from A cont. of Loc. 1226 (5643) 

If A - Jump to 1242 



A m 2hl0 
A*51b0 

A-«321 
A-0643 



A«o643 

A-0000 



A-5624 
A-5643 

A«001? 

A-5643 

A=»0000 
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01240 


0^50 


Load A with 005*0 




0000 


Error Stop 




2211 


Load A with cont. of Loc. 1253 




0071 


Add 0071 to A 




4207 


Store A at Loc. 1253 




OVfl 


Load A with 0071 




5146 


Add A to cont. of Loc. 1230 (stored at 0046) 




36o4 


Subtr. cont. of Loc. 1253 from A 


01250 


6oo4 


If A - Jump to 1254 




0451 


Load A with 0051 




0000 


Error Stop 




0435 


0526 




2211 


Load A with cont. of 1265 




0644 


Add 0044 to A 




4207 


Store A at Loc. 1265 




0444 


Load A with 0044 


01260 


5206 


Add A to cont. of Loc. 1266 (0451) 




3604 


Subtr. cont. of Loc. 1265 from A (05l6) 




6007 


If A - Jump to 1271 




0452 


Load A with 0052 




0000 


Error Stop 




0451 


0515 




0451 


0515 




2431 


2456 


01270 


2431 


2456 




2301 


Load A with cont. of 1270 




0625 


Add 0025 to A 




4303 


Store A at Loc. 1270 




0425 


Load A with 0025 




5306 


Add A to cont. of Loc. 1267 




3706 


Subtr. cont. of Loc. 1270 from A 




6010 


If A - Jump to 1307 


01300 


0453 


Load A with 0053 




0000 


Error Stop 




0000 


0001 




0772 


0773 




0772 


0773 




4101 


4102 




4101 


4102 




2305 


Load A with cont. of 1302 


01310 


0601 


Add 0001 to A 




4307 


Store A at Loc. 1302 




5447 


Add one to content of Loc. 0047 




3711 


Subtr. cont. of 1302 from A 




6003 


If A - Jump to 1U7 




0454 


Load A with 0054 




0000 


Error Stop 




2313 


Load A with cont. of 1?04 



A-0435 
A-0526 

A-0071 
A-0526 
A-0000 



A-0451 
A-0515 

A-0044 

A-0515 
A-0000 



A-2431 

a-2456 

A-0025 
A-2456 
A-0000 



A-0000 

A-0001 

A-0001 
A-00©0 

A-0772 
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01320 



01330 



013^ 



01350 



01360 



OoOl 

-315 
5550 

3717 
6003 
0'+55 
0000 
2212 

'1210 
0601 
U207 
5605 
3605 
6005 
oU 56 

0000 

3720 

3720 

2335 
0601 

^337 
5737 
37 J sl 
6003 

0^57 
0000 

7051 

O'fTO 
0000 

7101 
1361 
0471 

0000 

5611 

6303 
0U00 
7112 

2212 
i+204 
Ql*00 



Add 0001 to A 

Store A at Loc. I30lj 

Add 1 to cont. of Loc. (1303) stored at 0055 

Subtr. cont. of Loc. l^Oii from A (0773) 

If A - Jump to 1^27 

Load A with 0055 

Error Stop 

Load A with cont. of Loc. 13l*l 

Store A at Loc. 13k 

Add 0001 to A 

Store A at Loc. 131*1 

Add 1 to cont. of Loc. I3lj0 

Subtr. cont. of Loc. I3I4I from A 

If A » Jump to 1^2 

Load A with 00.56 

Error Stop 

3721 
Vf21 

Load A with cont. of Loc. 1305 

Add 1 to A 

Store A at Loc. 1305 

Add 1 to cont. of Loc. 1306 

Subtr. cont. of Loc. 1305 from A 

If A - Jump to 1352 

Load A with 0057 

Error Stop 

Jump to Loc. stored at 0051 (1355) 

Load A with 0070 

Error Stop 

Jump to Loc . 1361 

Load A with 0071 

Error Stop 

Add 1 to cont. of Loc. 1372 

If A is neg. Jump to 1^65 

Load A with 0000 

Jump to Loc. 0100 

Load A with cont. of Loc. 1377 

Store A at Loc. 1372 

Load A with 0000 



A-0773 

A-0773 
A-0000 



A-3720 



A-3721 

A-3721 
A-0000 



A-U101 
A-la02 

A-U102 
A-0000 



A-0000 
A-0311* 



01370 



7101 

ltoo 

1000 

7101 

1400 
0000 
0100 
1000 



Jump to lliOO 



Jump to lUOO 
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01400 2200 Load A with constant stored at 1401 

7643 7505 

3701 Subtr. cont. of Loc. 1401 from A ( 761+3 ) 
6002 If A - Jump to II4O5 

0000 Error Stop 

2304 Load A with cont. of Loc. lliOl 
4203 Store A at Loc. 1411 

4706 Shift left 1 cont. of Loc. ll+Ol (761*3) 

01410 4600 Shift left 1 cont. of Loc. 11*11 (761*3) 

7507 761*? - 7507 

2311 Load A with cont. of Loc. 11*01 

3702 Subtr. cont. of Loc. 11*11 (7507) 
6002 If A - Jump to 11*16 

0000 Error Stop 

2305 Load A with cont. of Loc. 11*11 
4200 Store A at Loc. 11*20 



A-76U3 

A-0000 

A-761*3 

A-7507 

A-7507 

A-7507 
A-0000 

A- 7507 



01420 



01430 



01440 



01450 



7507 
1710 
6002 
0000 
2704 
4202 
5600 
0270 

0701 
3311 
6003 
0000 

7643 
5200 
7643 
3703 

6002 
0000 

4706 

4305 
2706 
4203 
'2312 
1200 

0560 
6002 
0000 

2303 
4202 
1600 
0506 
6002 



Logical sum of A and cont. of Loc. 11*11 (7507) 

If A - Jump to li*24 

Error Stop 

Load A with compl. of cont. of Loc. 11*20 (7507) 

Store A at Loc. 11*27 

Add 1 to constant at ll*27 

0271 

Subtr. 0001 from A 

Add cont. of Loc. 11*20 (7507) 

If A - Jump to 11*35 

Error Stop 

7507 

Add A to constant at 11*36 

7507 

Subtr. from A cont. of Loc. 11*34 (761*3) 

If A - Jump to 11*1*2 

Error Stop 

Shift left 1 cont. of Loc. 11*34 (761*3) 

Store A at Loc. 1436 

Load A with compl. of Loc. 1436 (7507) 

Store A at Loc. 1450 

Load A with cont. of Loc. 1434 

Log. prod, of A and const, at 1450 (0270) 

0270 

If A - Jump to 1453 

Error Stop 

Load A with cont. of Loc. 1450 

Store A at 1456 

Log. sum of A and constant at 1456 (0270) 

0270 

If A - Jump to l46l 



A-0000 

A-0270 
A-0271 



A-0270 
A-0000 



A-7643 
A-0000 

A- 7507 

A-0270 

A-7507 
A-0000 



A-0270 
A-0000 
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011*70 



oi^oo 



011*60 0000 Error Stop 

2303 Load A with cont. of Loc. 11*56 

1*202 Store A at Loc. 11*61* 

2600 Load A with compl. of const, at 11*61* 

0506 0270 

3307 Add cont. of Loc. ll*56 to A (0270) 

6002 If A - Jump to 11*70 

0000 Error Stop 

Load A with cont. of Loc. 11*61* 

Store A at Loc. ll*73 

Subtr-^ const, at 11*73 (0270) from A 

0270 

If A - Jump to lit 76 

Error Stop 

Load A with compl. of cont. of Loc. 11*73 (0270) 

Store A at Loc. 1502 

Load A with cont. of Loc. 11*73 
Add to A constant stored at 1502 

7507 

If A - Jump to 1505 

Error Stop 

Transfer P to A 

Add 0003 to A 

Store A at Loc. l5ll* 

Transfer P to A 

Subtr. cont. of Loc. l5ll* (1510) from A 

If A - Jump to 1515 

Error Stop 

1511 - 3523 - 1527 

Add 1 to cont. of Loc. l$ll* 

Transfer P to A 

Subtr. 0005 from A 

Subtr. cont. of Loc. l5ll* from A 

If A - Jump to 1^23 

Error Stop 

Transfer P to A 

Store A at 15U* 

Load A with OOOl* 

Add A to cont. of Loc. 1511* (1523) 

Transfer P to A 

01530 3711* Subtr. cont. of Loc. 15H* (1527) from A 

6002 If A - Jump to 1533 

0000 Error Stop 

0101 Transfer P to A 

1*212 Store A at Loc. 151*6 

0103 Left shift 2 

1*211 Store A at Loc. 151*7 

2207 Load A with cont. of Loc. 151*6 



2301* S 
1*202-*': 
3600^ 
a &0<£6\ 
%6002 )° 
'■ tj 0000/ 

27or 
1*203 

2305 
3200 

7271 
6002 
0000 
0101 
0603 
1*205 

0101 
3603 
6003 
0000 

1510 
5701 
0101 
0705 



01520 3701* 
6002 
0000 
0101 
1*310 
01*01* 
5312 
0101 



01510 



A-0270 
A-7570 
A-0000 

A-0270 

A-0000 

A-7507 



A-0270 
A-0000 



A-1505 
A-1510 



A-1510 
A-0000 



A-1511 
A-1516 
A-1511 

A-0000 



A-1523 

A-0001* 
A-1527 
A-1527 

A-0000 



A-1533 

A-6551* 
A-1533 
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01540 



01550 



01560 



01570 



OloOO 



01610 



3206 
3205 

3204 
3604 
6004 

0000 

1533 
615^ 

0101 

4213 

0111 

4212 
4610 
4607 

46o6 
0103 

0102 

3604 
0005 

0000 

1550 
5300 

0000 

0113 
6003 

0000 
0001 

2301 
0113 

4225 
2304 
0103 

0102 
4222 
2310 
0102 
5217 
0103 
0102 
4215 

4613 

3213 
3610 
6002 
0000 
5723 
3607 
6114 



Add cont. of Loc. 1546 (1533) to A 
Add cont. of Loc. 1546 (1533) to A 
Add cont. of Loc. 1546 (1533) to A 
Subtr. cont. of Loc. 1547 (6554) from A 
If A - Jump to 1550 
Error Stop 

6554 

Transfer P to A 

Store A at Loc. 1564 

Left shift 6 

Store A at Loc. 1565 

Shift Left 1 cont. of Loc. 1564 (1550) 

Shift Left 1 cont. of Loc. 1564 (*n20) 

Shift Left 1 cont. of Loc. 1564 (6640 ) 

Shift Left 2 

Shift left 1 

Subtr. cont. of Loc. 1565 from A (5015) 

If A - Jump to 1567 

Error Stop 

3320 - 6640 - 5501 

5015 

Multiply A by 100 10 (1448) 

If A - Jump to 1573 

Error Stop 

0002 

Load A with content of Loc. 1572 

Multiply A by IOO10 (l44 8 ) 

Store A at Loc. 1622 

Load A with cont. of Loc. 1572 

Left shift 2 

Left shift 1 

Store A at Loc. 162^ 

Load A with cont. of Loc. 1572 

Left shift 1 

Add A to cont. of Loc. 1623 

Left shift 2 

Left shift 1 

Store A at Loc. 1624 

Shift left 1 cont. of Loc. 1623 

Add content of Loc. 1624 to A 

Subtr. cont. of Loc. 1622 from A 

If A - Jump to 1615 

Error Stop 

Add 1 to cont. of Loc. 1572 

Subtr. cont. of Loc. 1625 from A (0623) 

If A / Jump to 1633 



A-3266 
A-5021 
A«6554 
A-0000 



A-1550 

A-5015 

A-3320 
A-6640 
A-5501 
A-6406 



A-5015 

A-0000 



A-0000 



A-0001 

a-0144 

A-0001 
A-0004 

A-0010 

A-0001 
A-0002 
A-0012 
A-0050 
A-0120 



A-0024 
A-0144 
A-0000 



A-0002 

A- 7156 
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01620 



01630 



0l6ko 



01650 



01660 



01670 



6006 

0000 
0000 
0000 
0000 

0623 
0U01 
^335 

6103 
1632 

76U3 

2100 

1632 
3703 

6002 

0000 

2706 

1100 

1632 
6002 

0000 

2313 

1500 

1632 

6002 

0000 

2500 
1632 
3322 
6002 

0000 

2725 

3100 
1632 
6002 

0000 

2332 
3500 
1632 
6002 

0000 

2337 
4206 

4100 

1632 
3603 

6003 

0000 



If A - Jump to 1626 
Error Stop 

01UU 

0010 - 0012 
0120 

Load A with 0001 
Store A at Loc. 1572 

If A / Jump to I633 

7507 - 7510 - 7533 

Load A with cont. of Loc. 1632 

Subtr. cont. of Loc. 1632 from A 
If A - Jump to I6I4O 
Error Stop 

Load compl. of cont of Loc. 1632 

Log. prod, of A and cont. of Loc. 1632 

If A ■ Jump to 161*5 

Error Stop 

Load A with cont. of I632 

Log. sum of A and cont. of Loc. 16? 2 



If A - Jump to 1652 

Error Stop 

Load A with compl. of cont. of Loc. 1632 

Add cont. of Loc. I632 to A 
If A - Jump to 1657 
Error Stop 
Load compl. of cont. of 1632 

Add cont. of Loc. 1632 to A 

If A - Jump to 1661; 

Error Stop 

Load A with cont. of Loc. 1632 

Subtr. cont. of Loc. I632 from A 

If A - Jump to 1671 

Error Stop 

Load A with cont. of Loc. 1632 

Store A at Loc. 1700 

Store A at Loc. 1632 

Subtr. cont. of Loc. 1700 from A 
If A - Jump to 1701 
Error Stop 



A-0001 



A-761,3 
A-0000 



A-013i| 
A-0000 



A-761i3 

A-0000 



A-013U 
A-0000 

A-0131; 
A-0000 



A»761i3 
A-0000 



A-76M 
A-76143 

A-76U3 
A-OOOC 



160-A:30 



01700 7643 
4701 
4500 
1632 
3704 
6002 
0000 
5707 



01710 



01720 



01730 



01740 



01750 



5500 
1632 
3712 
6002 
0000 
0423 
5316 
0423 

5100 
1632 
1722 
6002 
0000 
560JU- 
6006 
7101 

1740 
0000 
0000 
0000 
7101 
3500 
0000 
0000 

2200 
4000 
3600 
3000 
3600 
0700 
0770 
0707 

0701 
6004 
0000 
7770 
0000 
5714 
5713 
2200 



7507 - 7510 - 7533 

Shift left 1 cont. of Loc. 1700 

Shift left 1 cont. of Loc. 1632 

Subtr. cont. of Loc. 1700 from A 

If A = Jump to 1707 

Error Stop 

Add 1 to cont. of Loc. 1700 

Add 1 to cont. of Loc. 1632 

Subtr. cont. of Loc. 1700 from A 

If A = Jump to 1715 

Error Stop 

Load A with 0023 

Add A to cont. of Loc. 1700 

Load A with 0023 

Add A to cont. of Loc. 1632 

Log. sum of cont. of Loc. 1700 and A 

If A = Jump to 1725 

Error Stop 

Add one to cont. of Loc. 1731 

If A = Jump to 1734 

Jump to 1740 



A*7507 
A=7507 

A=0000 



A=7510 
A=7510 
A=0000 

A=0023 
A=7533 
A=0023 

A=7533 
A=0000 

A=0001 



Jump to 3500 



"A" "variable" 
"B" "variable" 



Error Pyramid 

Count 

"D" variable. 

Increase A 

Increase B 



160-A:31 



01?60 



01770 



02000 



0000 


M C" variable 


5305 


Increase D 


5707 


Increase Count 


6504 




2310 


Load Data 


6002 




0000 


Error Pyramid 


0507 


Load Count 


4315 


Reset Count 


2200 




1111 




5313 


"C" + 1111 


3200 


Add Neg. Zero 


7777 




3716 




6002 




0000 




7101 




1400 





160-A-.32 



3' 



x 



03500 2300 
1603 
j>~o$ > 6003 
0000 
761*3%- 
U701 
i*560 
2303 

03510 1700 
6002 
0000 
2700 

3310 
6002 

0000 

2713 

03520 1300 
6002 

0000 
2717 

3300 
6002 

0000 

2323 

03530 3700 
6002 
0000 
2327 
1*300 
3731 
6002 
0000 

0351*0 li73U 
U700 

3736 
6002 

0000 

01*25 

53U2 
01+25 

03550 5300 

371*5 
6002 
0000 
5750 
5700 
3752 
6001* 



350U 



,i«~-i- 



Load A with cont. of Loc. 7777 

log. sum of A and cont. of Loc. 

If A - Jump to 3505 

Error Stop 

7507 - 7217 - 721*1* - 721*5 

Shift left 1 cont. of Loc. 3501* 

Shift left 1 cont. of Loc. stored at Loc. 60 (761*3) 

Load A with cont. of Loc. 3501* 

Log. sura of A and cont. of Loc. 7777 (7507) 

If A - Jump to 3513 

Error Stop 

Load A with compl. of cont. of Loc. 7777 

Add to A cont. of Loc. 3501* 

If A - Jump to 3517 

Error Stop 

Load A with compl. of cont. of Loc. 350U 

Log. prod, of A and cont. of Loc. 7777 

If A - Jump to 3523 

Error Stop 

Load A with compl. of cont. of Loc. 3501* 

Add cont. of Loc. 7777 to A 

If A - Jump to 3527 

Error Stop 

Load A with cont. of Loc. 3501* 

Subtr. cont. of Loc. 7777 from A 

If A - Jump to 3533 

Error Stop 

Load A with cont. of Loc. 3501* 

Store A at Loc. 7777 

Subtr. cont. of Loc 3501* from A 

If A - Jump to 351*0 

Error Stop 

Shift left 1 cont. of Loc. 3501* 

Shift left 1 cont. of Loc. 7777 

Subtr. from A cont. of Loc. 3501* 

If A - Jump to 35U5 

Error Stop 

Load A with 0025 

Add A to cont. of Loc. 3501* 

Load A with 0025 

Add A to cont. of Loc. 7777 
Subtr. from A cont. of Loc. 3501* 
If A - Jump to 3551; 
Error Stop 

Add 1 to cont. of Loc. 350l* 
Add 1 to cont. of Loc. 7777 
Subtr. from A cont. of Loc. 3501* 
If A - Jump to 3563 



A-76U3 

A-0000 



A-7507 
A-7507 
A-7507 

A-0000 



A-0270 
A-0000 



A-0270 
A-0000 



A-0270 
A-0000 



A-7507 
A-0000 

A-7507 
A-0000 



A-7217 
A-7217 

A-0000 



A-0025 
A»72l*l* 

A-0025 

A-72l*l* 
A-0000 



A-7?lt5 

A-7&5 

A-0000 



160-A-.33 



03560 



03570 



03600 



03610 



03620 



03630 



0000 

546l 
546l 
4701 
1+702 
230U 
0103 
'4306 

3706 
6003 

o4oi 

0000 

2312 

0110 
0110 

4315 
2317 

0111 

4321 
3721 
6003 

0401 
0000 

0412 

0112 

3604 
6004 

0401 
0000 
0144 
2206 
0114 

3605 
6005 

0401 
0000 

2525 
1252 

2212 
0114 

0114 
4207 
2207 
0115 
4205 
3603 
6004 
0000 



Error Stop 

6?06 - 066? 

3143 - 6306 - 0663 

Shift left 1 cont. of Loc. 3562 

Shift left 1 cont. of Loc. 3562 

Load A with cont. of Loc. 3561 

Left shift A 2 places 

Store A at Loc. 3561 

Subtr. from A cont. of Loc. 3562 

If A - Jump to 3574 

Load A with 0001 

Error Stop 

Load A with cont. of Loc. 3562 

Left shift A 3 places 

Left shift A 3 places 

Store A at Loc. 3562 

Load A with cont. of Loc. ?56l 

Left shift A 6 places 

Store A at Loc. 3561 

Subtr. from A cont. of Loc. 3562 

If A - Jump to ?607 

Load A with 0001 

Error Stop 

Load A with 0012 

A times 10 (I2g) 

Subtr. from A cont. of Loc. 3615 

If A - Jump to 3616 

Load A with 0001 

Error Stop 

Load A with cont. of Loc. 3624 
Right shift A 1 place 

Subtr. from A cont. of Loc. 3625 
If A - Jump to 3626 
Load A with 0001 
Error Stop 



Load A with cont. of Loc. 361+0 
Right shift A 1 place. 

Right shift A 1 place 

Store A at Loc. 3640 

Load A with cont. of Loc. 3641 

Right shift A 2 places 

Store A at Loc. 3641 

Subtr. from A cont. of Loc. 3640 

If A - Jump to 36U2 

Error Stop 



A-31U3 
A-5306 
A-5461 
A-63O6 



A-0000 



A-6306 
A-3066 
A-O663 



A-6306 
A-066? 

A-0000 



A-0012 

A-01U4 
A-0000 



A-2525 

A-1252 

A-0000 



A-5252 
A-6525 

A-7252 

A-5252 
A-7252 

A-0000 



160-A:34 



0361*0 5252 
5252 

5601* Add 1 to cont. of Loc. 361*6 ««7771 

6113 If A / Jump to 3656 

6026 If A - Jump to 3672 
5252 

7770 7771 

2702 Load A with compl. of Loc. 361*5 A-2525 

03650 U3O3 Store A at Loc. 361*5 

1*311 Store A at Loc. 36UO 

1*311 Store A at Loc. 361*1 

7100 3655 to Loc. 3663 and Jump to 
3663 Loc. 366U 

7121 Jump to 3711* 

7101 Jump to 3626 
3626 

O336O 0000 Error Stop 7100 instruction failed 
0000 

7101 Jump to Loc. 3655 

3660 3655 

5603 Add 1 to cont. of Loc. 3667 

7101 Jump to 3662 
3662 

0000 0001 

03670 7101 Jump to 3500 
3500 

0507 Load A with compl. of 0007 A-7770 

1*325 Store A at loc. 3 61*6 

7101 Jump to 361*7 
36U7 
371U 

7701 Stop when Sel. Stop 1 is up, otherwise P + 1 

03700 7702 Stop when Sel. Stop 2 is up, otherwise P + 1 

7701* Stop when Sel. Stop I* is up, otherwise P + 1 

7707 Recheck Stop 1, 2, and 1* 

( 5553 Add 1 to cont. of Loc. stored at 0053 (1375) 

f) oUw-Vj 610U If A / Jump to 3710 

" ~- -~ 7777 Halt 

,,,-.■ ,• ' 7101 Jump to 0100 
0100 

03710 01*25 Load A with 0025 A-0025 

6111 If A / Jump to 3722 

7101 Jump to 61*31 

61*31 

2205 Load A with cont. of Loc. 3721 A-3660 

1*332 Store A at Loc. 3663 

2327 Load A with cont. of Loc. 3667 

6527 If A / Jump to 3670 

160-A:35 



03720 61*21 
3660 

7625 
7101 
3752 
01*52 
7625 
7710 



If A - Jump to 3662 

Replace E part of Loc. 372U (stored at 0025) with 25 

Jump to 3725 

3725 

Load A with 0052 

Replace E part of Loc. 3721* (stored at 0025) with 52 

If Sel. Jump 1 set jump to 371*2 

(If not jump to 3731) 



A-3725 



A-0052 
A-3752 



03730 371*2 
7720 
3756 
771*0 
3761* 
0U00 
61*30 

7775 

0371*0 7773 
7767 
5703 
6506 
0502 
1*306 
01*00 
61*1*2 

03750 7033 
.■-.'/ "' 0000 

ol*76 
0000 

01*00 
61*1*7 
5716 
6522 

03760 0501* 
1*321 
01*00 
61*56 
5723 
6530 
0510 
1*326 

03770 01*00 

61*61* 

7 K -$m 



If Sel. Jump 2 set Jump to 3756 

If not jump to 3733 

If Sel. Jump 1* set jump to 3761* 

If not jump to 3735 

Load A with 0000 

If A-0 Jump to 3706 

Counter for Sel. Jump 1 

Counter for Sel. Jump 2 
Counter for Sel. Jump 1* 
Add 1 to cont. of Loc. 3737 
If A / Jump to 3735 
Load A with compl. of 0002 
Store A at Loc. 3737 
Load A with 0000 
If A - Jump to 3705 

Check sum constant 

Load A with 0076 HWI Error 

Error Stop 

Load A with 0000 

If A - Jump to 3705 

Add 1 to cont. of Loc. 37i*0 

If A / Jump to 3735 

Load A with compl. of 0001* 
Store A at Loc. 371*0 
Load A with 0000 
If A - Jump to 3705 
Add 1 to cont. of loc. 371*1 
If A / Jump to 3735 
Load A with compl. of 0010 
Store A at Loc. 371*1 

Load A with 0000 

If A - Jump to 3705 

Check sum constant 



A-0000 



A-7776 - 0000 
A-7775 



A-7771* - 0000 
A-7773 



A-7767 - 0000 
A-7767 



160-A:36 



0000-0001 



0002-0003 




Load loc. 
7777 with 
constant 

(7643) 



Load loc. 

3504 with 

constant 

(7643) 



0004-000 5 
/ Jump 

to 
\ 0100 




0100 



0105 



Check 
60 instr. (ZJF) 



OK 



Check 
65 instr. (NZB) 



A=0060 



^ A=0065 



OK 



0106 



Check 
62 instr. (PJF) 



J, A=0062 



OK 



error 
P=0102 



error 
P=0104 



error 
P=0110 



0113 



Check 
67 instr. (NJB) 



OK 



0114-0115 



Check 

61 instr. (NZF) 
05 instr. (LCN) 



0122 



0123 



0130 



OK 



Check 
64 instr. (ZJB) 



OK 



Check 
63 instr. (NJF) 



OK 



Check 
66 instr. (PJB) 



OK 



0131-0132 



Check 

0110 instr. (LS3) 
63 instr. (NJF) 



^A=0067 
error 
P=0112 



|A=0061 
error 
P=0117 



| A=0064 
error 
P=0121 



I A=0063 
error 
P=0125 



|A=0066 
error 
P=0127 



i A=0063 



OK 



0135-0136 



Check 

-»j 0110 instr. (LS3) 
62 instr. (PJF) 



error 
P=0134 



^A=0062 
error 
P=0140 



OK 



0144-0147 



0152-0153 



o 



~0 



Check 
04 instr. (LDN) 



OK 



jA=004 
error 
P=0151 



Check 
23 instr. (LDB) 



jA=0023 
error 
P = 0155 



0157-0161 



OK 



Check 
33 instr. (ADB) 



jA=0033 
error 
P=0163 



0164-0166 



OK 



Check 
27 instr. (LCB) 



\ A=0027 
error 
P=0170 



0171^0173 



OK 



Check 
37 instr. (SBB) 



^A=0037 
error 
P=0175 



OK 



0176-0201 



Check 
34 instr. (SBD) 



JA=0034 
error 
P=0203 



OK 



0204-0264 



Check 
0102 instr. (LSI) 



jA=0001 

error 

P=0210, 0214, 0220, 

0224,0230, 0234, 

0240, 0244, 0250, 

0254,0260,0264. 



OK 



0266-0306 



0307-0367 



0370-0450 



0452-0531 



Check 
0103 instr. (LS2) 



OK 



Check 
13 instr. (LPB) 



OK 



Check 
17 instr. (SCB) 



OK 



0532-0534 



Check 
27 instr. (LCB) 



OK 



Check 
07 instr. (SBN) 



0537-0540 




|A=0001 
error 
P=0272, 0276, 0302, 

0306 



i A=0013 

error 

P=0313, 0317, 0323, 

0327,0333,0337, 

0343,0347,0353, 

0357,0363,0367. 



M=0017 

error 

P=0374, 0400, 0404, 

0410,0414,0420, 

0424, 0430, 0434, 

0440, 0444, 0450. 



i A=0027 

error 

P=0455, 0461,0465, 

0471,0475,0501, 

0505,0511,0515, 

0521,0525,0531. 



|A=0007 
error 
P=0536 



0563-0565 



Change jump 
address of loc. 
0540 
to 0566 



0541-0547 



Change cont. of 
check location 
at 0454-0530 



(05 50-51)(0453-0531) 



0532-0534 



Check 
46 instr. (SRF) 



OK 



Check 
07 instr. (SBN) 



|A=0046 
error 
P=0333 
and stops between 
(0453-0531) 



T~A= 



0537-0540 



0566-0567 




Restore jump 
location at 
loc. 0540 to 
0563 



0570-0576 



Restore original 
content of check 
locations at 
0454-0530 



0577-0603 



Store variables 
at 0036(0530) 
at 0554(5252) 



0007 



error 
P=0536 



-o 



o 



0606-0607 



Restore content 
of loc. 0542 (was 
changed during 
last check) 
to 4366 



0610-0670 



Check 
37 instr. (SBB) 



OK 



JA=0037 
error 
P=0614, 0620, 0624, 0630 
0634,0640,0644,0650 
0654,0660,0664,0670 



0671-0672 




0721-0723 



Change jump 

location of 0672 

to 0724 



0673-0701 



Change content 
of check loca* 
tions between 
0612 and 0670 



0702-0704 0612-0670 



Check 
32 instr. (ADF) 



0671-0672 



OK 



\ A=0032 
error 
P=0614, 0620, 0624, 0630 
0634, 0640, 0644, 0650 
0654, 0660,0666,0670 
0706 




0724-0736 



Restore original 
content of jump 
loc. at 0672 and 
check locations 

between 
0612 and 0670 



0737-0745 



Check 
02 instr. (LPN) 



A=TJTJTJ0 



error 
P=0746 



0747-0750 



OK 



Check 
10 instr. (LPD) 



A=0010 



error 
P=0753 



OK 



0754-0756 



Check 
11 instr. (LP I) 



"F 



^wm 



error 

P=0765 



OK 



0757-0761 



Check 
12 instr. (LPF) 



OK 



A=tiUUU 



error 
P=0765 



0762-0764 



Check 
13 instr. (LPB) 



A=0UTJTJ 



error 

P-0765 



0767-0773 



OK 



Check 
03 instr. (SCN) 



A=TH)M 



error 
P=0774 



OK 



03 

o 



CO 



0775-0777 



Check 
14 instr. (SCD) 



T^ 



0014 



error 
P=1001 



1002-1004 



OK 



Check 
15 instr. (SCI) 



A=0015 



error 
P=1006 



1007-1011 



OK 



Check 
16 instr. (SCF) 



"J* 



0016 



error 
P=1013 



1015-1017 



OK 



Check 
20 instr. (LDD) 



A=0020 



error 
P=1021 



1023-1025 



OK 



Check 
21 instr. (LDI) 



A=0021 



error 
P=1027 



1031-1033 



OK 



Check 
22 instr. (LDF) 



A=0022 



error 
P=1035 



OK 



1037-1041 



Check 
05 instr. (LCN) 



A=0005 



error 
P=1043 



OK 



1045-1047 



Check 
*l 24 instr. (LCD) 



A=0024 



1052-1054 



OK 



Check 
25 instr. (LCI) 



A=0025 



1057-1061 



OK 



Check 
26 instr. (LCF) 



A=0026 



1065-1070 



OK 



Check 
06 instr. (ADN) 



A=0006 



1073-1075 



OK 



Check 
30 instr. (ADD) 



A=0030 



1100-1102 



OK 



Check 
31 instr. (ADI) 



A=0031 



OK 



1105-1107 



Check 
32 instr. (ADF) 



A=0032 



OK 



error 
P=1051 



error 
P = 1056 



error 
P=1063 



error 
P=1072 



error 
P=1077 



error 
P=1104 



error 
P=llll 



1113-1116 



Check 
07 instr. (SBN) 



i^ 



= 0007 



error 
P=1120 



OK 



1121-1123 



Check 
34 instr. (SBD) 



I A=0034 



error 
P=1125 



OK 



1120-1130 



Check 
?| 35 instr. (SBI) 



T^ 



= 0035 



error 
P=1132 



OK 



1133-1135 



Check 
36 instr. (SBF) 



A=0036 



error 
P=1137 



OK 



1141-1145 



Check 
40 instr. (STD) 



A=0040 



error 
P=1147 



1150-1155 



OK 



Check 
41 instr. (STF) 



!* 



= 0041 



error 
P=1157 



1161-1165 



OK 



Check 
42 instr. (STF) 



~w- 



= 0042 



error 
P-1167 



OK 

-0 



o 



CD 



1174-1176 


OK 


1201-1206 




1212-1214 




1215-1222 


OK 


1231-1237 


OK 


1242-1250 




1254-1262 




Check 
44 instr. (SRD) 


Check 
45 instr. (SAD 


OK 


Change constant 

at location 

1172 




Check 
47 instr. (SRB) 


Check 
50 instr. (RAD) 


Check 
51 instr. (RAI) 


OK 


Check 
52 instr. (RAF) 


OK 














» 


JA=0044 

error 
P=1200 


1 A=0045 

error 
P=1210 






« — 


1 A=0047 

error 
P=1224 


|A=0050 

error 
P=1241 


1 A=0051 

error 
P=1252 




1 A=0052 

error 
P=1264 



1271-1277 



1307-1314 



Check 
53 instr. (RAB) 



T^= 



OK 



Check 
54 instr. (AOD) 



0053 



P 



OK 



1317-1324 



Check 
55 instr. (AOI) 



0054 



error 
P=1301 



T^ 



1327-1335 



OK 



Check 
56 instr. (AOF) 



0055 



A=0056 



1342-1347 



OK 



1352 



Check 
57 instr. (AOB) 



error 
P=1316 



error 
P=1326 



1* 



OK 



Check 
70 instr. (JPI) 



0057 



error 
P=1337 



"P 



1355-56 



OK 




=0070 



error 
P=1351 



error 
P=1354 



1361 



Increase counter 

of location 1372 

by 1 

(original 0314) 



1362 



Check if 
counter is 
negative 




No 
1363_fii!_76 



1365-1367 



Restore counter 
of 1372 to LES 
original count 

(0314) 



1370-71 





1400-1403 



1405-1414 



Check 
2200 instr. (LDC) 



rA?o" 



1416-1422 



OK 



Check 
4600 instr. (SRC) 



AfO 



OK 



Check 
4200 instr. (STC) 



aW 



error 
P=1404 



error 
P=1415 



error 
P = 1423 



1424-1432 



1435-1440 



Check 
5500 instr. (AOC) 



error 
P=1433 



OK 



1442-1451 



Check 
5200 instr. (RAO 



error 
P=1441 



OK 



Check 
1200 instr. (LPC) 



Ta?o- 



OK 



1453-1457 



Check 
1600 instr. (SCO 



error 
P=1452 



error 
P=1460 



OK 



1461-1466 



Check 
2600 instr. (LCO 



A^0 



OK 



1470-1474 



Check 
3600 instr. (SBC) 



error 
P=1467 



error 
P=1415 



OK 



1476-1503 



Check 
*l 3200 instr. (AOC) 



A^0 



OK 



OK 



error 
P=1504 



1505-1544 



1550-1562 



1567-1613 



Check 
0101 instr. (PTA) 



OK 



|A*0 

error 
P=1513, 1522, 1532, 1545 



Check 
0111 instr. (LS6) 



j&°~ 



1615-1616 



OK 



Check 
0113 instr. (MUH) 



"Ta7o- 



OK 



Add 1 to counter 
at 1572 and 
-»|subtract constant 

(0623) at 1625 



1617-1620 



1633-1636 




error 
P=1563 



error 
P=1571, 1614 



1626-1627 



Yes 



Restore 
counter at loc. 
1572 

to 
0001 



Check 



* 2100 instr. (LDM) 



"p?5- 



-© 



error 
P=1637 







1640-1643 



1645-1650 



.Check 
* 

1100 instr. (LPM) 



OK 



A5*0 



error 
P=1644 



Check 
1500 instr. (SCM) 



A*0 



error 
P=1651 



OK 



1652-1655 



1657-1662 



Check 
2500 instr. (LCM) 



OK 



A*0 



error 
P = 1656 



Check 
3100 instr. (ADM]- 



|A^0 

error 
P = 1663 



OK 



1664-1667 



Check 
3500 instr. (SBM) 



Iatt 



error 
P=1670 



OK 



1671-1676 



Check 
4100 instr. (STM) 



A^0 



error 
P=1677 



OK 



1701-1705 



Check 
4500 instr. (SRM) 



"a?o" 



error 
P=1706 



1707-1713 



OK 



Check 
5500 instr. (AOM) 



AfO 



error 
P=1714 



1715-1723 



1725 



OK 



Check 
5100 instr. (RAM] 



T^" 



error 
P=1724 



OK 



Increase counter 
at loc. 1731 
by 1 



1726 



1 734-1735 




3500-3502 



Check 
2300 instr. (LDS) 



error 
P = 3503 



OK 



en 
o 

I 

> 

o 



3505-3511 



Check 
1700 instr. (SCS) 



error 
P = 3512 



3513-3515 



OK 



Check 
2700 instr.(LCS) 



A^O 



error 
P=3516 



3517-3521 



3523-3525 



OK 



Check 



» 1300 instr. (LPS) 



A^0 



error 
P=3522 



OK 



Check 
3300 instr. (ADS) 



" JA?0 

error 

P=3526 



3527-3531 



OK 



Check 
3700 instr. (SBS) 



Aj(0 



error 
P=3532 



OK 



3533-3536 



Check 
4300 instr. (STS) 



error 
P = 3537 



OK 



3540-3543 



Check 
4700 instr. (SRS) 



|a?o- 

error 
P = 3544 



OK 



3545-3552 



3554-3557 



3563-3571 



3574-3604 



3607-3612 



3616-3621 



3626-3636 



Check 
5300 instr. (RAS) 



error 
P = 3553 



Check 
5700 instr. (AOS) 



Check 

2-47 instr. (SRB) 

and compare 

with 0103 

instr. (LS2) 



Check 
0111 instr. (LS6) 



Check 
0112 instr. (MUT- 



Check 
0114 instr. (RSI) 



Aj*0 



error 
P=3560 



|A*0 

error 
P=3572 



A=0001 



A=0001 



"P 



0001 



Check 
0115 instr. (RS2) 
0114 instr. (RSI) 



error 
P=3606 



error 
P=3614 



error 
P=3623 







error 
P = 3637 



3642 



Add 1 to counter 
at 3646 (-10) 



3672-3673 



3647-3652 



s. 






3643 

Is 
counter 



Yes 



No 



Restore count 
at 3646 
to -10 



Change constants 
used for right 

shift; 

check to their 

complement 



3653-54 

/Check 7100 \ 

/ instr. (JPR) \ 

>(( change const, at V 

Xloc. 3664 to / 

\ 3655) / 



3664 



Add to count 

at loc. 36637 

(0000) 



3665-66 








to 3626 



G> 



3662-3663 



Check 
7100 instr. (JPR) 



JaW 



OK 



3714-3717 



Restore 
loc. 3663 to 
3660 



error 
P=3660 



3702 



Stop 

if any sel. stop 

is up 



en 
o 
i 

> 



3703 



Add 1 to 
count at 1375 



3720 



Is count 

at 3667 






3677 



Stop 

if Sel. Stop 

1 is up 



3700 



Stop 

if Sel. Stop 

2 is up 



to 3500 



(3710-ll)(3722-26) 



3727-30 



3704 




No 



Yes 




to 0100 



Check 
76xx instr. (HWI) 



P? 



OK 



Sel. Jump 
1 up 



= 0076 



error 
P=3753 



3742 



Yes 



Add 1 to 
count at 
3737 (-2) 



3735-36 



Jump to 
loc. 0100 



3742 



© 



3744 



3701 



Stop 

if Sel. Stop 

4 is up 



3731-32 



3746 



Restore 

count at 

3737 



No 



Sel. Jump 
2 up 



3756 



No 



3733-34 



Sel. Jump 
4 up 



Yes 



3764 



Add 1 to 
count at 
3740(-4) 



3756,, 



Yes 



Add 1 to 
count at 
3741 (-10) 



3764 




3760 y 3762 



3766 



Restore 

count at 

3740 



3770 



Restore 

count at 

3741 



NUMBER: T035 

TITLE: Punch Power Supply Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

This program will test the punch power supply load down and punch residual 
magnetism. 

OPERATING INSTRUCTIONS 

Paper Tape 

0000 

0142 

Turn on the punch and start at P=0000 

ADDITIONAL INSTRUCTIONS: To change this program from 8 level to 7 level enter 
0101 in memory location 0063 and enter 0177 in memory location 0066. 

HALTS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
STARTING ADDRESS: 



P=0055, Z=7777 



P = 0107, Z=0000 
P=0111, Z=7700 



EXPLANATION 

After punch out of leader then allow leader insert into 
reader. Insert the tape so that the first frame read will 
be a binary 0. Do not master clear. 

Put the computer in run. The program will run continuously 
until the end of tape or until an error occurs. 

Error halt, error data in "A". 
Put the computer in run. 

Halt with correct data in "A". 
Put the computer in run. 
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T-035 
PUNCH POWER SUPPLY LOAD DOWN & PUNCH RESIDUAL MAGNETISM TEST 



OOOO 


0577 




0001 


4075 




0002 


7565 




0003 


7400 




ooo4 


5475 




0005 


6502 




0006 


0507 




0007 


4074 




0010 


0401 




0011 


4077 




0012 


0524 




0013 


4075 




0014 


7351 




0015 


0100 




0016 


5475 




0017 


6503 




0020 


2302 




0021 


0601 




0022 


6501 




0023 


7400 




0024 


4477 




0025 


1241 




0026 


4077 




0027 


6515 




0030 


0524 




0031 


4075 




0032 


7332 




0033 


OO67 




0034 


5475 




0035 


6503 




0036 


2320 




0037 


0601 




0040 


6501 




0041 


7400 




0042 


5477 




0043 


2074 




0044 


6072 




001*5 


5474 




0046 


6534 




0047 


6006 




0050 


0524 




0051 


4075 




0052 
0053 


76OO 
6401 




0054 


6127 




0055 


7777 




0056 


7503 




0057 


6707 
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0060 


6610 




0061 


1*102 




0062 


0000 




0063 


0201 




OO6I4 


0066 




0065 


0077 




0066 


0377 




0067 


hlOh 




0070 


0000 




0071 


0000 




0072 


0000 




0073 


0000 




007U 


0101 




0075 


0001 




0076 


0li|2 




0077 


0077 




0100 


05 2U 




0101 


U075 




0102 


7600 




0103 


h076 




01 oh 


31+77 




0105 


6005 




0106 


2076 




0107 


0000 




0110 


2077 




01] 1 


7700 




0112 


51*75 




0113 


6511 




01 Ik 


7600 




0115 


6002 




0116 


0000 




0117 


him 




0120 


1066 




0121 


1*077 




0122 


6005 




0123 


3163 




012U 


672it 




0125 


7101 




0126 


0132 




0127 


2066 




0130 


1*077 




0131 


6531 




0132 


7503 




0133 


7101 




0131* 


0010 




0135 

0136 


laoi* 
7503 




0137 


7101 
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OlifO 


0100 


oiM 


U02 


011+2 


k&k 



160--A:46 



NUMBER: T036 

TITLE: Punch and Reader Test 

CATEGORY: 160- A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

The program checks the reliability of the punch and reader under variable speed 
operations. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 030-3 V^-<? 

CHECK SUM: OlttfT ^ 3i> S 

STARTING ADDRESS: 
Part 1 0001 

Turn the punch ON and punch out a small amount of leader. 
Master clear, set P=0001, and put the computer in run. The *-""' 
punch will run out enough tape to reach the reader and stop 
with P-0041. ^ 

Part 2 0000 

Insert the tape into the reader so that the first frame read will 

be a 0. 

Start P=0000. The program will continue to punch and read until 

an error occurs. A pattern of the binary count is punched from c ~?/2? &■ 

0000 to 0177, followed by a binary count from 0000 to 0177 with *" 

two frames of each count punched. This is followed by 3 then 4 Is" 

frames of each count. 

HALTS EXPLANATION 

770x x = error frame of a particular count. Error stops 

are coded to tell which frame of a particular count was 
read or punched wrong. Observation of the tape by the 
operator will determine a punch or reader error. 
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T036 

TEST PROGRAM # I- PUNCH & REAPE1 



0000 


7102 


/-V-5^"' ; 


0001 


7102 




0002 


0100 




0003 


oocfc 




0004 


0501 




0005 


1*250 




0006 


0^00 




0007 


423^ 




0010 


k23k 




0011 


l*-23^ 




0012 


423U 




0013 


7536 




001U 


7333 




0015 


00*A 




0016 


620*4- 




0017 


5627 




0020 


5625 




0021 


5623 




0022 


5621 




0023 


1627 




002U 


6511 




0025 


5710 




0026 


2310 




0027 


0701 




0030 


14-312 




0031 


1622 




0032 


6521* 




0033 


2221 




0034 


1»316 




0035 


2213 




0036 


1*321 




0037 


5616 




OOUO 


6532 




00U1 


7700 




0C&2 


6U36 




00^3 


0200 




OOUh 


0200 




OOlt-5 


0200 




00^6 


0200 




00U7 


00U3 




0050 


001*4 




0051 


1*101* 




0052 


0200 




0053 


6200 




OO5U 


6201+ 




0053 


0100 




OO56 


0000 




0057 


0100 
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0060 


0270 




0061 


0062 




0062 


5606 




0063 


5606 




0061* 


5606 




0065 


5606 




0066 


7060 




0067 


0200 




0070 


00l*0 




0071 


001*0 




OC72 


001*0 




0073 


0200 




0071* 


2121 




0075 


0021 




0076 


0303 




0077 


0077 




0100 


ol*oo 




0101 


1*070 




0102 


7501* 




0103 


7201* 




01014 


0075 




0105 


6103 




0106 


1*102 




0107 


0071* 




0110 


2071l 




0111 


1U70 




0112 


6113 




0113 


7501* 




oiil* 


7301* 




0115 


0071 




0116 


6103 




0117 


Uiol* 




0120 


0070 




0121 


51*70 




0122 


11*67 




0123 


6521 




OI2I4 


6003 




0125 


2071* 




0126 


770L 




0127 


01*00 




0130 


1*070 




0131 


1*071 




0132 


7501* 




0133 


7201* 




0131* 


0076 




0135 


6103 




OI36 


1*102 




0137 


0071* 
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0140 


2074 




Ol4l 


1470 




0142 


6117 




0143 


2075 




0144 


1471 




0145 


6116 




0146 


7504 




0147 


7304 




0150 


0072 




0151 


6103 




0152 


4104 




0153 


0070 




0154 


5470 




0155 


5471 




0156 


1467 




0157 


6525 




0160 


6005 




0161 


2074 




0162 


7702 




OI63 


2075 




0164 


7702 




0165 


0400 




0166 


4070 




0167 


4071 




0170 


4072 




0171 


7504 




0172 


7204 




0173 


0077 




0174 


6103 




0175 


4102 




0176 


0074 




0177 


2074 




0200 


1470 




0201 


6123 




0202 


2075 




0203 


1471 




0204 


6122 




0205 


2076 




0206 


1472 




0207 


6121 




0210 


7504 




0211 


7304 




0212 


0073 




0213 


6103 ~\ 
4104 J 




0214 




0215 


0070 




0216 


5470 




0217 


5^71 
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0220 


5472 




0221 


1467 




0222 


6531 




0223 


6007 




0224 


2074 




0225 


7701 




0226 


2075 




0227 


7702 




0230 


2076 




0231 


7703 




0232 


0400 




0233 


4070 




0234 


4071 




0235 


4072 




0236 


4073 




0237 


7504 




0240 


7204 




0241 


0100 




0242 


6103 




0243 


4102 




0244 


0074 




0245 


2074 




0246 


1470 




0247 


6124 




0250 


2075 




0251 


1471 




0252 


6123 




0253 


2076 




0254 


1472 




0255 


6122 




0256 


2077 




0257 


1473 




0260 


6121 




0261 


7504 




0262 


7304 




0263 


0074 




0264 


6103 




0265 


4104 




0266 


0070 




0267 


7061 




0270 


1467 




0271 


6532 




0272 


7057 




0273 


2074 




0274 


7701 




0275 


2075 




0276 


7702 




0277 


2076 
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0300 
0301 
0302 
0303 



7703 
2077 
770 1 * 
2750 
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NUMBER: T037 

TITLE: Q.A. Variable Speed Reader - "76" Instruction Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 
This test will check the reader at variable speeds. 

DESCRIPTION 
1. See flow chart. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0077 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: Insert a binary count loop into the reader and put 
the computer in run. 

Memory location 0060 contains the reader level mask. If the reader mask is changed 
to read less than 8 level, then 0000 should be entered in memory location 0057. 

HALTS EXPLANATION 

7700 A = error data. 

Put the computer in run. 

7701 A = correct data. 

Put the computer in run. The reader will search for the 
correct information and then continue to read at a variable 
rate until an error occurs. 
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Q.A. VARIABLE SPEED READER 



Read one 
frame from 

tape 



Halt with 
data read 
displayed 



0006-0007 



Jump to 
loc. 0006 



Add 1 to variable 
at loc. 57 and 
compare with 
data read 



0050-0052 



Put 

— back — 

in run 



Sel. stop with 
correct data 
displayed in A 



Put 
- back - 
in run 



Read frame from 
tape and compare 
with cont of 
loc. 0057 



Search for correct data 



Compares 



*4 Compares 



a 



0011-0012 



Compare content 
of loc. 0057 
with mask 
at loc. 0060 



Compares 



Yes 
0014-0015 



Load loc. 0057 
with 777 6 (-1) 



Load A with 
cont. of 0061 
35XX 



Increase A 
by 1 



Delay 



Is A 
positive 



0021-002 3 



Decrease 

cont. of loc. 

0072 by 1 

(original 0600) 



Is loc. 0072 \Yes 
equal to 



Restore cont. 

of loc. 0072 

to 0600 



Is loc. 0072 
equal to 



After 6 passes 
0072 is 0000 



Restore cont. 

of loc. 0025 

to 2062 



Restore cont. 

of loc. 0072 

to 0600 



0030 



Add 1 to cont. 
of loc. 0025. 
Change instr. 
from 2062-70 



0031-0032 



Increase cont. 
of loc. 0061 
by 0040 
(orig. 3500) 



of loc. 0061 
positive 



Restore cont. 

of loc. 0061 

to 3500 



Is A equal 



A is \Y 

never equal 
to zero 



This test reads 11 binary counts at different speeds 
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T-037 

QUALITY ASSURANCE VARIABLE SPEED READER 



0000 


7505 


" X /"' 


0001 


7600 ' 


t 


0002 


4056 




0003 


7004 / 


' '.'• •:■-■■ 


0004 


0006 


■;., ',: c- ' : ' " 


0005 


4102 


: ,,. ,i- • • ■ 


ooo6 


,5457 ' 


' • . ' -./. ' | 


0007 


3456 


./ 


0010 


6134 


'/ •: 


0011 


2057 ' 


/" ** 


0012 


3460 




0013 


6103 V 


'" ?l .</ ■■ 


0014 


0501 


'•' •/ 


0015 


4057 ' 


' t. S> 


0016 


2061 




0017 


0601 




0020 


6601 




0021 


2072 




0022 


0701 




0023 


4072 




0024 


6524 N 1 


■i „•- ... 


0025 


2062 




0026 


4072 




0027 


6010 1 




0030 


5425 




0031 


2075 




0032 


5061 . f-< 


* s ■' " 


0033 


6633 v 




0034 


2074 '- 


c ■ ■ ■' ' 3 - 


0035 


4061 




0036 


6536 




0037 


2073 




0040 


4025 




0041 


2071 




0042 


4072 




0043 


6512 




0044 


- 2056 




0045 


7700 




0046 


2057 




0047 


7701. 




0050 


7505 




0051 


76OO 




0052 


3457 




0053 


6503 




0054 


6454 




0055 


4102 




OO56 


0000 




0057 


0000 
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0060 


0377 


0061 


3500 


0062 


0600 


0063 


0600 


006U 


06OO 


0065 


0600 


0066 


0600 


0067 


0600 


0070 


0000 


0071 


0600 


0072 


0600 


0073 


2062 


00 ik 


3500 


0075 


00U0 


0076 


007U 


0077 


222k 
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NUMBER: T050 

TITLE: Manual Variable Speed Reader Test 

CATEGORY: 160- A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

This test will check the clutch, brake adjustments, feed hole and information bias 
settings. 

DESCRIPTION 

This program is a manual control of the delay between picking the clutch on the reader. 
By moving the SLJ switches while the program is running causes various delays to be 
inserted between frames at random. 

Any number is put into Register A. This number is the basic delay. A 0001 in Register 
A is equivalent to a 12.8 us delay. The number in Register A is now effectively multi- 
plied by the SLJ switches. If SLJ4 and SLJ2 are down the delay between 76 instructions 
is 6 times the basic delay in Register A. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0077 
CHECK SUM: 6755 

STARTING ADDRESS: 0000 
ADDITIONAL INSTRUCTIONS: 125-52 loop is required 

HALTS EXPLANATION 

0016 Number read is in Register A. A "52" should have been read. 

0027 Number read is in Register A. A "125" should have been read. 
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LOC 
OOOO 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0060 
0061 
0062 



} 



4070 

7500\ 

4102 J 

2200-] 

5252 > 

4072J 

7600 

0752 

6011 

6503 

7600 

0752 

6016 

0652\ 

OOOOJ 

7101\ 

0003J 

7600 

3600 

0125 

6006 

3200 

0125 

0000 

7101\ 

0003J 

0400 

7710 

0036 

0701 

7720 

0041 

0702 

7740 

0044 

0704 

6007 

4071 

2070 

0701 

6501 

5471 

6504 

2072 

6304 

4472 

7101 

0021 

4472 

7101 

0012 



Store delay 
Select reader 

Insures that frame counter is correct 
Insures first frame read is 52 



Check if frame is 52 
Frame is 52 go to delay* 
Error stop 
Frame read is in RA 

Insures proper start after an error stop 



Check if frame is a 125 
125 read go to delay* 

Error stop 125 should have been number 
Recover after error 



Delay X 1 



Delay X 2 



Delay X4 

Store delay multiplier 
Load delay 



Do delay again 
Load frame checker 
NFJ if last frame was 125 
Shift frame checker 
Jump to input for 125 

Shift frame checker 

Jump to 5 2 frame 
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0063 
0064 
0065 
0066 
0067 

0070 Delay 

0071 Delay multiplier 

0072 5252 
0073 

0074 
0075 
0076 
0077 
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NUMBER: 



T074 



TITLE: Q.A. Block Store Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 
This program tests the block store (BLS) instruction in various memory locations, 

DESCRIPTION 



See flow chart. 

The program stores 12 different constants in blocks of 525„ then checks the 

pattern and with no selective stops in the up position it is self-looping. After 

the test pattern has been stored and checked the complete pattern is destroyed 

by storing 4264 throughout the buffer bank. A check of this number is then 

accomplished. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 



OPERATING INSTRUCTIONS 

Paper Tape 

0000 

0175 

0160 



ADDITIONAL INSTRUCTIONS: SLS switch 1 up, sweeps memory bank under test. 
This will cause the program to stop after the pattern has been block stored in memory. 



HALTS 
0140 



0024 



EXPLANATION 

Error, A equal to error data. 
Sweep 0055 Dir bank for failure. 
Put computer in Run. 
A equal to correct data. 
Restart at 0000. 

Error after storing 4264. 

Sweep 0021 for memory location of failure. 

If no error occurs, the original test pattern will be 

restored and checked. 
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/ 



Test No. 1 will test the EvT S instruction in Memory Bank. 



LOAD INSTRUCTION: 
ADDITIONAL INSTR UCTIONS: 



0000 in Rel bank 

1) Set Rel and Dir bank to 0. 

2) Set Bfr and Ind bank to 1. 

3) 0000 Run from Rel bank 0. 

4) If error occurs master clear Run 0000. 

5) For halt see 0140 above. 



/ 



Test No. 2 will test the ELS instruction in Memory Bank 0. 



LOAD INSTRUCTION: 
ADDITIONAL INSTRUCTIONS: 



0000 in Rel bank 1 

1) Set Rel and Dir bank to 1. 

2) Set Bfr and Ind bank to 0. 

3) 0000 Run from Rel bank 1. 

4) If error occurs master clear Run 0000. 

5) For halt see 0140 above. 



\\ : 



Test No. 3 will test the BLS instruction in External Memory. 



LOAD INSTRUCTION: 
ADDITIONAL INSTRUCTIONS: 



0000 in bank X 

1) Set Dir = Rel. 

2) Set Bfr + Dir and Rel. 

3) Set Ind = Bfr. 

4) 0000 Run from Rel bank. 

5) If error occurs master clear Run 0000. 

6) For halt see 0140 above. 
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BLOCK STORE TEST 



00000 



00010 



00020 



00030 



00040 



00050 



a ~r, £0 



6036 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0501 
4300 
0106 
0003 
2051 
0100 
0004 

2100 
0000 
3451 
6002 
0000 
5704 
3700 
6507 

0400 
4310 
6004 
7575 
0000 
0000 
0400 
'4053 

4055 
4062 

2057 
4056 

4063. 
20 60 
4240 
4272 

2061. 
4264 
61?6. 
0000 
0522 
0000 
0525 
0525 



Oper. error 
Error 0105 B. busy- 
Error 0106 B. busy- 
Error 0100 B. busy 



Set test bank to 4264 

Set Buffer Exit 
Jump adr. 
(M.L. 0051) 
Block Store 
Jump adr. 

Check Pattern 



Error-Halt 

Increase test (1) count 



Restore test (1) addr. 



Check sura correction 



Reset variables 



,_ ■:• ii/ 

' ( - ' J ~- ? /eh ,,■ 



—, ,< f .' . 'J >' ^-i 

--*%> . (*f) -> /% I / """"~ ■ - Jgf) 

"^#- ?— -- -~ 

Check 0153 instruction 

Constant 

Variable 

Variable 

Constant 
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(BLS test Cont. ) 



00060 



00070 



00100 



doiio 



00120 



00130 



2064 


Constant 


3464 


Constant 


0000 


Variable BER. 


0525 


Variable BXR. 


0000 > 




7777 




1111 




2222 




4444 


> Constants, Buffer D, 


5252 




2525 




3131 




1313 




1234 




7650 




6666^ 




2062 " 


\Or, •>.., , >/■/ "'» 


0105 r 


Load BER»- 


0002 


Jump adr. B. busy 


2063" 


J^C ><.'- _> — ;.-,-" «*P K" f**i '""' 


0106 


Load BXR. 



<? - 



^ 



0003 

2064 
0100 

0004 

^5703 
0400 

0162 
0107 
6002 

0000 

2057 

5063 
0503 

3462 

6523 
2316 

0714 

4320 
o4oo 

4062 

2057 
4063 
7701 
2155 

3464 
6005 
2155 



~£. 



Jump adr. B, busy 



- y. 



BLS. 

Jump adr. B. busy 



Error Halt (0162) 
Check BER. limit 7774 

Reset variable instruction to orig. 

Reset BER. to orig. 

Reset BXR. to orig. 
Stop Pattern completed. 
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ooi4o 



00150 



00160 



00170 



0000 
2064 
7700 

5455 
3^56 
6511 
5711 
5706 

2057 
5056 
3454 

6517 
0400 

4055 
0514 
5322 

0514 
5320 

2057 
1*056 

0153 
0101 

0701 
3453 

6471 
0000 
0400 

6674 

0000 
2010 



Error Halt, Error Data In "A" 
Correct Data in W A W 



Change variable instruction. 
Change variable instruction. 



Check BER limit 

Reset variable 

Reset variable instruction. 

Reset variable instruction. 
Reset variable 



Error Halt (0153 Inst.) 
Jump back to resume test. 
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From 
loc. 0032 



0000 



Start 



en 
o 



03 
CJ3 








0036 




0037 




0040 




0041 




0400 LDN 


— > 


4053 STD 


— * 


4055 STD 


■ — » 


4062 STD 


\ Yes 


Load A 
with 0000 


Store at loc. 

0053 

Set variable 

to 0000 


Store at loc. 

0055 
Set variable 
to 0000 


Store at loc. 

0062 

Set variable 

to 0000 


) 





0042 



0043 



0044 



2057 



LDD 



Load A with 
co. tent of 0057 

(A = 0525) 



4056 STD 



Store at loc. 

0056 
Set variable 
to 0525 



Not Used 



4063 STD 



Store at loc. 

0063 

Set variable 

to 0525 



0045 



0046 



0047 



2060 LDD 



Load A with 
cont. of 0060 

A = 2064 



0050 



4240 STF 



Store at loc. 

0106 

Set variable 

to 2064 



4272 



STF 



Store at loc. 

0141 

Set variable 

to 2064 



2061 



LDD 



Load A with 
cont. of 0061 

A = 3464 



0051 



0100 



0101 



4264 



STF 



Store at loc. 

0135 

Set variable 

to 3464 




Error- Stop 
P = 0002 *~ 



0602 



Jump to loc. 

0002 
forced 71 instr. 



0103 



0104 



0106 



0107 



2063 



LDD 



Load A with 
cont. of 0063 

A = 0525 



0106 ATX 



Load Bffr. 
Exit Reg. 



2064 LDD 



Load A with 
cont. of 0064 

A = 0000 



0100 BLS 



Block store 
cont. of A 



0111 




0112 




0113 


5703 AOB 


— > 


0400 LDN 


— > 


0162 STE 


Add 1 to cont. 
of loc. 0106 

2064 + 


Load A with 
0000 


BER to loc. 

62 and A to 

BER 



0114 




+ multiple of 0525 



Error-Stop 
P = 0003 * 



Bffr. Busy 
i 1_ 



0105 



Jump to loc. 

0003 
forced 71 instr. 



Constants of loc. 
0064-0077 



Error-Stop 
P = 0004 ' 



Bffr. Busy 
.4 1_ 



BER = 0000 



0110 



Jump to loc. 

0004 
forced 71 instr. 




0120 



0121 



0122 



- LD_D_ 

Load A with 
cont. of 0057 

0525 



03 LCnI 



— =, 


5063 RAD 


— » 


0503 LCt 


Add A to cont. 
of loc. 0063 


Load A with 
compl , ; ■! 00 



0124 



Error-Stop 
A i P = 0116 
0162 failed 




0125 



2316 



LDB 



Load A with 

cont. of loc. 

0106 

A = 2100 



0714 SBN 



Subtr. 0014 
from A 

A = 2064 





0126 




0127 




0130 




0131 




0132 




4320 STB 


— » 


0400 LDN 


— 9 


4062 STD 


— » 


2057 LDD 


— > 


4063 STD 




Store at 
loc. 0106 


Load A 
with 0000 


Store at 
loc. 0062 


Load A with 
cont. of 0057 

A = 0525 


Store at 
loc. 0063 





03 

o 






0133 
7701 SLS 



Stop if Sel. 
Stop 1 is up 
otherwise P + 1 



Restore original 
cont. of loc. 0106 



Restore original 
cont. of loc. 0062 



Restore original 
cont. of loc. 0063 



0134 
2155 LDI 



Load A with cont 
of loc. stored at 
0055 



0135 



3404 



SBD 



Subtr. cont. 
of loc. 0064 

A = 0000 



Check data stored 
E will change from 
64 to 77 



0145 




0146 



0147 





5711 AOB 


—9 


5706 AOB 


\ Yes 


Add 1 to 
cont. of 0135 


Add 1 to 
cont. of 0141 


1 



0150 



2057 LDD 



Load A with 
cont. of 0057 

A = 0525 



0151 



5056 BAD 



Add A to 
cont. of 0056 



Check 525 locations 



Update check instructions for check 
of next constant stored 



Cont. of 56 will be 
multiples of 525 



Put back in run 



0141 



0142 



Load with cont, 
of loc. stored 
at 0055 



Error- stop A 

contains 
error-data 



Put back 
»in run — > 



2064 


LDD 


Load A with 
cont. of 0064 

E will change 


From 


64 to 77 



7700 



HALT 
A contains 
correct data 



0152 



3454 



SBD 



0153 



Subtr. from A 

cont. of 0054 

(0522) 



Check or 7774 
locations are checked 






0154 




0155 




0156 




0157 




0160 




0161 




0162 




0163 


— 9 


0400 LDN 


— * 


4055 STD 


— > 


0514 LCN 


— » 


5322 RAB 


— > 


0514 LCN 


— > 


5320 RAB 


— » 


2057 LDD 


— s 


4056 STD 


Load A 
with 0000 


Store at 
loc. 0055 


Load A with 
compl. of 0014 

A = 7763 


Add A to 
cont. of 0135 

A = 3464 


Load A with 
compl. of 0014 

A = 7763 


Add A to 
cont. of 0141 

A ' 3464 


Load A with 
cont. of 0057 

A = 0525 


Store at 
loc. 0056 



Restore original cont. of 0055 



Restore cont. of loc. 0135 



Restore cont. of loc. 0141 



Restore cont. of loc. 0056 



0164 




0165 




0166 


0153 STP 


— > 


0101 PTA 


— > 


0701 SBN 


Store 0164 
at loc. 0053 

A = 0164 


Transfer 
P to A 

A = 0165 


Subtr. 0001 
from A 

A = 0164 



0167 



3453 



SBD 



Subtr. from A 
cont. of 0053 



0170 



0076 




Yes 



Check 0153 instruction (0164 - 0170) 





No 

— » 


0171 




0000 




Error- stop 
0153 instr. 
failed 



0172 



Put back 
■*in run -3 



0400 



LDN 



Load A 
with 0000 




* Not used 





0011 




0012 




0013 




0501 LCN 


— » 


4300 STS 


— » 


0106 ATX 




Load compl. 
of 0001 in A 

A = 7776 


Store A at 
loc. 7777 


Load Bffr . 
Exit reg. 
with 7776 





0015 



0016 



0020 



0022 



002 3 




Bffr. busy 



Bffr. busy 



Error-Stop 
P = 0003 * 



0014 



Jump to 
loc. 0003 

forced 71 instr. 



Error- Stop 
P = 0004 * 



0017 



Jump to 
loc. 0004 

forced 71 instr. 



O 



03 
00 



0036 




After Sel. Stop 1 
memory contains: 



From 
loc. 


Data 


To 
loc. 


0000 


0000 


0524 


0525 


7777 


1251 


1252 


1111 


1776 


1777 


2222 


2523 


2524 


4444 


3250 


3251 


5252 


3775 


3776 


2525 


4522 


4523 


3131 


5247 


5250 


1313 


5774 


5775 


1234 


6521 


6522 


7650 


7246 


7247 


6666 


7773 



rn 



1 /' 7" 
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NUMBER: T075 ^. ,,^ a 

TITLE: Memory Bank Selection Test No. 1 f ^ "N ~. 0is\/\ 

CATEGORY: 160 -A /'"*- - 

MINIMUM EQUIPMENT NEEDED: 160 -A ^ ^S /tTJJTS^T^"^"*' 

purpose P/9&riLr»3#Azl . 

This program will check 160-A computer execution of memory bank selections for ' 

banks and 1 only. ^} ^a^C^/p") 

DESCRIPTION //f J ££^00 

The program will follow a binary count of bank selection as follows: w-B ^-^««»^^ 

Buffer Direct Indirect Relative r#*/ff MU *»£*,% 

~j0* **' t '"1 t St « ■ 

#•.1' ^^ | &*■ * >■* * * :'*i 

C.*|pK / '»» gf »" «V >"** 
























1 






1 


1 





1 


1 


o 






continuing to 17. Constants used for arithmetic operations are stored in Memory 

e0& 



Location through 7 in bank 0, and 10 through 17 in bank 1. * 



■r, .■■"■■■>'.' .:■/■■'" ":"■ ■ 



OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape * .V 

First Routine Second Routine 

LOADING ADDRESS: 0000 in bank 0000 in bank 1 

TERMINAL ADDRESS: 0450 0350 

CHECK SUM: 0160 \ 0160 

STARTING ADDRESS: 0000 ~ ,_ _„,-' 

ADDITIONAL INSTRUCTIONS: 1) Master clear set "A" to 0100 

2) Put the computer in Run 

HALTS EXPLANATION 

VP = 0441 Z = 7700 No SLS switches up program will loop 4096 times 

P = 0220 Z = 7701 SLS 1 switch up program will check bank selection instructions 

through 7 (see description) 
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HALTS EXPLANATION (Cont'd) 

P = 0422 Z = 7702 SLS 2 switch up bank selection instructions 10 through 17 

will be checked 

Each error halt is preceded by a bank selection to "A" 
instruction 

Program annotation shows the correct "A" register display 
(bank selection) for each error halt 
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BANK 



00000 0070 Set Rel & Jump to ML 0100 
2552 
5225 
0000 
0000 
02U0 
0001 
0002 

00010 0011 
0120 
0010 
0000 
0000 
0000 
0000 
0000 

00020 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00030 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

OOOiiO 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ooo5o oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 160- A: 71 



00060 



00070 



00100 



00110 



0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




2776 


LDC (Rel) 2552 


3002 


Add Dir ML 0002 


6003 


Zero Jump 


0130 


Correct Data 0000 


0000 


Error Halt 


2107 


5225 


oio5 


ATE 


0075 


Buf Busy Adr. 


oUoo 


clr. A 


0107 


ETA 5225 


3106 


Add Irtd to ML 0001 


600lt 


Zero Jump 


0130 


Correct Data 0000 


0000 


Error Halt 


0100 


Constant 


2301 





00120 0011 Set Rel to 1 and Jump to ML 0100 
0130 

0000 Error Halt No JumD Correct Data 0001 
0000 
0000 
0000 
0000 
2552 

00130 2301 

3002 ML 0002 Bank ft 

6003 

0130 Correct Data 0010 

0000 Error Halt 

0107 ETA 5225 

3110 Add Ind Bank 1 ML0011 2552 

6003 Zero Jump 
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OOlUO 



00150 



00160 



OOITO 



00200 



00210 



0130 
0000 
2011 
0031 
0130 
0000 
OlUO 

2552 

2002 
3302 
6003 
0130 
0000 
0107 
3106 
6003 

0130 
0000 

231^ 
0051 

0000 

0170 
2552 
0061 

2103 
3303 
6003 
0130 

0000 
2010 

3011 
6504 

2010 
0105 

0075 
0500 
OI67 
2067 
3011 
6003 

0130 
0000 

2325 

0071 

0000 
0000 
0000 
0000 



Correct Data 0010 

Error Halt 

Load Dir Bank Jump adr. 0120 

Set Ind & Rel & Jump 

Error Halt, No Jump. Correct Data 0011 

Constant 

Load Dir Bank 

Adb - Bank 

Zero Jump 

Correct Data 0000 

Error Halt 

ETA. 5225 

Add Ind ML 0001 - 2552 

Zero Jump 

Correct Data 0000 
Error Halt 
Load Jump Adr. OlUO 
Set Rel & Dir & Jump 
Error Halt. No Jump 

Set Dir & Ind to 1 

Ld. Bankl. (5225) 

Adb. 

Zero Jump 

Correct Data - 0110 

Error Halt 

(5225) 

Non Zero Back to Error Halt 

5225 

ATE 

Buf Busy Adv. 

LCN 00 

ST. E. in ML 0067 A to BER 

(5225) 

Add Dir Bank 1* 

Zero Jump 

Correct Data 0110 

Error Halt - (0167) 

Load Jump Adr (0170) 

Set Rel Ind, Dir to 1 & Jump 

Error Halt. No jump 
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00220 



00230 



002*tO 



00250 



00260 



7701 
7101 
0300 
0000 
0000 
0000 

3106 

0000 

2552 
5225 

0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Stop - 0-7 completed. 

Jump to resume test. 



00270 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



160-,:.-, 



00300 



00310 



00320 



00330 



003^ 



00350 



0l4l 
2350 
3001 
6003 
0130 

0000 

2107 
0105 

0075 

0^00 

0107 
3106 
600k 
0130 

0000 
0220 

2301 
0011 

0130 

0000 
0000 
0000 
0000 

2552 

2301 
3002 
6003 
0130 

0000 

0107 
3110 
6003 

0130 

0000 

2005 
0031 
0130 

0000 

0260 

2552 

2002 

3302 
6003 
0130 

0000 

0107 
3106 
6003 



Set Buf to 1, 

5225 

2552 Bank 

Correct Data 1000 

Error Halt 

LDI Bank 5225 

ATE 

Buf Busy Adr. 
CIR - A 
ETA 

ADI Bank l 
Zero Jump 
Correct Data 1000 
Error Halt 
Jump Adr. 

Load Jump Adr. 
Set Rel *c Jump 
Correct Data 1001 
Error Halt - No Jump 



2552 

Add Bank 
Zero Jump 
Correct Data 1010 
Error Halt 
ETA - 5225 
Bank 1 
Zero Jump 

Correct Data 1010 
Error Halt 
Load Jump Adr. 02U0 
Set Rel & Ind & Jump 
Correct Data 1011 
Error Halt. No Jump 
Jump Adr. 
Constant 

(5225) 

Adb 

Zero Jump 

Correct Data - 1000 

Error Halt 

ETA 5225 

Bank - ML 0001 

Zero Jump 
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00360 0130 Correct Data 1000 
0000 

2311* Load Jump Adr - 0260 
0051 Set Rel 4 Dir & Jump 

0000 Error Halt - No Jump - Correct Data - 1101 
0310 
2552 
0061 Set Dir & Ind to 1. 1110 

00370 2103 5225 (Bank 1) 
3303 

6003 Zero Jump 

0130 Correct Data 1110 

0000 Error Halt 

2010 5225 
3011 

650U Jump Back to Error Halt 

00U00 2010 5225 

0105 ATE 

0075 BFR Busy Adr. 

0U00 0167 

0167 OhOO 

2067 5225 

3011 2552 Bank 1 

6003 Zero Jump 

OOiilO 0130 Correct Data 1110 

0000 Error Halt 

2325 Load Jump Adr 

0071 Set Rel, Dir, Ind 4 Jump 
0000 Error Halt - No Jump 
0000 

0000 
0000 

00U20 7710 Set Stop to Test Banks 2 & 3 
0h30 

7702 Set Stop - Pass through completed 
OU4O Set Fir - 
0130 

6011 All Bank Controls - 
0000 Error Halt 
0100 

00U30 2301 

0072 Continue test - Banks 2 & 3 
0000 

0000 
0000 
6011 
5703 
6002 160- A: 76 



00440 7102 
7700 

0100 
0000 
0000 
0000 
0000 
^537 

00450 0000 
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MEMORY BANK SELECTION TEST 

BANK1 



lOOOO 0000 

10000 0000 
01^7 
0002 
0010 

0011 
0000 
0000 

0000 

10010 5225 
2552 
0000 
5220 
5225 
0000 
0000 
0000 

10020 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

10030 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

100U0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

10050 0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
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10060 



10070 



10100 



10110 



10120 



10130 



0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0130 






0000 






0000 






2001 


LDD Bank - 2552 


3371 


Adif B - ML 0010 


Bank 1 


6003 


Zero Jump 




0130 


Correct Data - 


- 0001 


0000 


Error Halt 




0107 


ETA 5225 




3106 


Ad Ind to Bank 


ML 0001 


6003 


Zero Jump 




0130 


Correct Data - 


0001 


0000 


Error Halt. 




2302 


Load Back Jump 


Adr. 


0021 


Set Ind to 1 




0010 


Set Rel to k 


Jump 


0000 


Error Halt. No 


Jump 


0150 


Constant 




2552 


Constant 




2301 






3112 


Add to Bank 1 


ML 0010 


6003 


Zero Jump 




0130 


Correct Data 0011 


0000 


Error Halt 




0107 


ETA <22$ 




3307 


ML 0117 Bank 1 


6003 


Tero Jump 




0130 


Correct Data 0011 


0000 


Error Halt 




oo-to 


Set Dir - 




2315 


Load Jump Adr. 


0150 


0030 


Set Ind *t Rel and Jump 


0167 


Constant 




5225 


Constant 




5220 


Constant 






160-A 


:79 



(also Jump Adr.) 



ioiUo 



10150 



10160 



10170 



10200 



10210 



2101 


LCD - Bank 1 (5225) 


3322 


Add Back - Bank 1 


6003 


Zero Jump 


0130 


Correct Data 0101 


0000 


Error Halt 


2102 


Bank 5225 


0106 


ATX 


0075 


BFR BusyAdr. 


2311 


LPB 5220 


0105 


ATE 


0075 


0075 Jump Adr Bfr Busy 


2315 


(5225) 


0100 


Bis 


0075 


BFR Busy Jump 


2513 


LCI - Bank 


32U0 


ADF 


6003 


Zero Jump 


0130 


Correct Data 0101 


0000 


Error Halt 


2326 


Load Jump adr (0167) 


0050 


Set Dir — Rel h Jump 


0000 


Error Halt. No Jump. 1 


0220 




2552 




2011 


(2552) 


3333 


5225 (ML 0136) 


6003 


Zero Jump 


0130 


Correct Data 0111 


0000 


Error Halt 


2010 


5225 


0105 


ATE 


0075 


BFR Busy Adr. 


0U00 


C1R A 


0107 


ETA 5225 


3313 


2552 


6003 


Zero Jump 


0130 


Correct Data 0111 


0000 


Frror Halt 


2320 


Load Jump Adr. 0220 


0070 


Set Rel, Ind, Dir 4 Jur 


0000 




0000 




0000 




0000 




0000 




0000 




0330 




5225 





Correct Data 0000 
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10220 2001 2552 

3302 5225 

6003 Zero Jump 

0130 Correct Data 1001 

0000 Error Halt 

0107 ETA 5225 

3106 Bank - 2552 

6003 Zero Jump 

10230 0130 Correct Data - 1001 

0000 Error Halt 

23l4 Load Jump Adr. 

0021 Set Ind to 1 

0010 Set Rel to p r Jump. 

0000 Error Halt. No Jump, 
0350 
2552 



ML 0330 Bank 
Correct Data 1010 



10240 2301 

3112 5225 (ML 10 Bank 1) 

6003 Zero Jump 

0130 Correct Data - 1011 

0000 Error Halt 

0107 ETA - 5225 

3307 

6003 Zero Jump 



10250 



10260 



10270 



0130 
0000 

oo4o 

2315 

0030 

0000 

0367 
5220 

2411 
3322 
6003 
0130 
0000 
2102 
0105 
0075 

0400 
0107 
3333 
6002 
0000 
2102 
0106 
0075 



Correct Data - 1011 

Error Halt 

Set Dir 

Load Jump Adr (0350) 

Set Rel h Ind & Jump 

Error Halt - No Jump 



Bank 1 (5225) 

Zero Jump 

Correct Data - 1101 

Error Halt 



- Correct Data 1000 
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10300 


2322 


(0367) 




0050 


Set Dir & Rel k Jump 




0000 


Correct Data 1000 




0000 


Error Halt 




0000 






0000 






0^20 






2552 




10310 


2010 
3302 
6003 


5225 




0130 


Correct Data - 1111 




0000 


Error Halt 




2010 


5225 




0105 






0075 




10320 


oUoo 

0107 
3313 

6003 






0130 


Correct Data - 1111 




0000 






2320 


Load Jump Adr 




0070 


Set R, I, D, k Jump 


10330 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




103U0 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




10350 


0000 
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NUMBER: T076 

TITLE: Memory Bank Selection Test No. 2 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 



Pf/J/ 



i-V 



/ 



./ 



pi,. 



1 



f::\ 
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PURPOSE — — -~- ■- "■-- 

The program will check 160 -A computer execution of bank selections for any memory 
bank available. StAJ r~f~~jfc f*~P<r 



Jj 



<*/«** 



OPERATING INSTRUCTIONS 



In Rel Bank X 



LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0300 
CHECKSUM: 0160 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: Master clear Set A to the Indirect Bank desired to test. 

Put the computer in Run. 



HALTS 

P = 0002 

A = 0000 



P = 0160 



0257 



EXPLANATION 

Set the "A" register to Rel and Dir bank desired to test. 

Ind bank setting / Rel or Dir bank setting. 
Put the computer in Run. 

SLS 4 switch up, pattern will be laid down and the computer will stop 
prior to checking the pattern. 

SLS 1 or 2 switch up pattern will be checked. 

Approximate test time is 12 seconds. 

At any of the above stops the computer may be put back into run to 

continue test. 

With no SLS up the program is self looping. 

Error in testing the pattern. 
Put the computer in Run. 
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HALTS EXPLANATION (Cont'd.) 

0263 005X error in A. 

Put the computer in Run. 

0266 005X correction in A. 

Put the computer in Run. 

0273 Error data displayed in A. 

Put the computer in Run. 

0275 Correct data display in A. 

Put the computer in Run. Resume test. 
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Memory Bank Selection Test #2 



00000 



00010 



00020 



00030 



00040 



00050 



4070 
0400 
7T00 
4071 
0400 

4o6i 
20TO 
0620 

4201 
0020 
2200' 
2300 

4100 

7775 

2071' 

06l0 

4.100 

7776 
2071 
0650 

4202 
2062 
0050 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

7550 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000" 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



Indirect Bank Setting 

Relative and Direct Bank Setting 
Clear "P" Test Adr. 



Set Indirect Bank 
Store 2300 in ML. X7775 

Store 001X in ML. X7776 



Set Rel. and Ind. and Jump to Test, 
Error Halt. No Jump. 



Check Sum Correction. 



Test Area 
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ooo6o 



00070 



00100 



00110 



00120 



00130 



0004 
0000 
0100 

0160 
0170 
2300 

0010 
0040 

0000 
0000 

4o6o 
0150 
0157 J 
0150 
4050 "I 
4057 J 

0400 

4050 
5701 

3472 
6504^ 
2076 
4305 

0400 

4203 
2075 

4100 
0000 
0403 

5302 

6505. 

5603 



2065 

4100 
0000 

0403 

5302 

0602 
6506 
4305 . 

2071 
4215 
2066 
5213 

0402 
4203 
2210 
4100 



Jump Adr # 
Variable "P" Adr. 



Constants 



Variable ($X Test Cell) 
Constants 



Clear Test Area 



Restore Test Area Clear 



Store 01$X in Ind. Bank. 



Store 2300 in Ind. Bank 



Store Set Rel. and Jump in Ind. Bank, 
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00140 



00150 



00160 



00170 



00200 



00210 



0000 

0403 

5302 
0601 
6506 
6004 
0000 
0000 

0000 
2064 
4300 
2066 
4205 
2070 
5203 
2061 

7704 
0000 
0000 
0000 
2060 
2050 
0000 
0000 

2071 
0620 
4201 
0020 
2100 
0050 
6106 
5702 

5'il 
0760 
6506 
6015 
2075 
0277 
37U 
6150 

2100 
0050 
3461 
6144 

5717 

5704 
0760 
6523 



Store Set Rel. and Jump in Ind. Bank 



f 



Spares 
\ Set ML. 7777 to 0170 

Form Set Rel. and Jump Instruction 



> 



Set Rel. and Jump to Test 
Error Halt - No Jump 



Constants 



Set Ind. 



> Test 005X ML 
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00220 



00230 



00240 



00250 



00260 



00270 



00300 



0450 
4324 
4311 
0403 
5061 
6006 
2070 
0630 

4202 
2061 
0030 
2070 
0620 
4201 
0020 
5475 

0277 
0760 
6104 
2073 
4075 
7707 
2071 
0630 

4202 
2060 
0030 
0000 
0000 
0000 
0000 
0000 

2363 
0277 
4210 
0000 
2075 
0277 
7700 
0001 

0001 
2100 
0050 
0000 
2061 
7700 
0400 
7101 

0004 



Up Date "P" Test Cell 



Up Date 005X Test Cell 



> 



Restore 005X 

Selective Stop Test Completed 



> Return to Test 



Error Halt 



Display 5X error 

Display Correct 5X 
S Spare 

b> Display Error Data 
> Display Correct Data 

Return to Test 
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NUMBER: T999 

TITLE: Quality Assurance Fortran Test 

CATEGORY: 160-A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 

The program check the ability of the 160-A computer to run a known Fortran 
problem. 

DESCRIPTION 
See section (1. Explanation of answer). 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

1. Compiler I (AC1.00 - IE 

2. Compiler II (AC 1.00 - 2D 

3. Compiler III (AC 1.00 - 3D 

4. Little Lilley Source (program "LATE") 

5. Little Lilley Input (MOD XX) 

EXECUTION 

1. LOADING ADDRESS: Load Compiler I from (P) = 0000. 
CHECK SUM: (A) = 0000, (P) = 7776. 

2. Master clear. Turn punch and read on and eject some tape from 
the punch by pressing the "Tape Leader" button. 

3. Return all jump and stop keys to neutral. 

4. Insert the Little Lilley source paper tape into the reader. 

5. Run from (P) =0000. 
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Execution (Cont'd) 

6. If no errors have occurred, a stop will occur at (P) = 3775 
and (A) = 0000. 

DO NOT CLEAR! 
If a stop other than (P) = 3775 occurs, consult publication BF01 
section III. A. 3. to determine the type of error that occurred. 

7. Insert Compiler II in the reader and run from (P) = 3775« 

8. A stop will occur at (P) = 0252 when Compiler II has finished. 

9. Master Clear. Remove the Binary object tape from the punch. 

10. Load Compiler III from (P) = 0000. 

a. Check sum: (A) = 0000, (P) = W7. 

11. Master Clear. Insert the binary object tape into the reader. 

12. Run from (P) « 0000. 

13. A stop will occur at (P) = 0151. 

DO NOT CLEAR! 
If a stop occurs at (P) = 0051 a parity error was detected. Refer 
to publication BF01 section III.B.2. 

1^. Insert the Little Lilley input tape into the reader. 

15. Run from (P) = 0151. 

16. If no errors have been detected; a stop will occur at (P) = 11^2 
and (A) = U-U+k. 

a. A stop at (P) = 0576 is a Compiler error. Recompile. 
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Execution (Cont'd) 

17. Remove the answer tape from the punch. 

18. The answer data taoe can now be typed out and conroared with the 
true answer. (See note 1) 

NOTE 1. Typical Typeout Program 



M.L. 


INSTR. 


COMMENT 


0000 


7500 


EXF. 


0001 


4102 


SEL. Reader 


0002 


7600 


INA 


0003 


6401 


ZJB Wait for Data 


0004 


4017 


STD Store Data 


0005 


7500 


EXF. 


0006 


4210 


SEL. Type 


000? 


2017 


LDD Load Data 


0010 


7677 


OTA Output Data 


0011 


7500 


EXF 


0012 


4102 


SEL. Reader 


0013 


7600 


INA 


0014 


4017 


STD STORE DATA 


0015 


6510 


NZB Continue Until Data=0 


0016 


7700 


End 


0017 


xxxx 


Data Storage 
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LITTLE LILLEY ANSWER (mod. 01) 

1. Explanation of answer. 

A. A HISTOGRAM is plotted under the following 
conditions: 

1. Range of numbers 

a. minimum : 001.00 

b. maximum ; ^00.00 

2. Steps (for ranges) 

a. intervals of 020.00 

3. Horizontal position 
a. 1$ to 60$ 

k. Results 

a. The HISTOGRAM gives the percent of 
numbers (from the Little Lilley input 
tape) that fall within a specific range set. 

b. Mean 

The mean of all numbers on the input tape. 

c. Sigma 

The maximum variance from the mean. 
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LITTLE LILLEr Mod. 01 
Answer 



q. a. l6o -a fort ran test 
program little lilley mod. 01 



10 20 30 kO 50 60 



1.00- 


20.00 




21.00- 


1+0.00 


X 


in.oo- 


60.00 


XX 


61.00- 


80.00 


XXX 


81.00- 


100.00 


xxxx 


101.00- 


120.00 


xxxxx 


121.00- 


1>K).00 


xxxxxx 


lM.OO- 


160.00 


xxxxxxx 


161.00- 


I8O.OO 


xxxxxxxx 


181.00- 


200.00 


xxxxxxxx 


201.00- 


220.00 


xxxxxxxxx 


221.00- 


21+0.00 


xxxxxxxx 


21+1.00- 


260.00 


xxxxxxx 


261.00- 


280.00 


xxxxxx 


281.00- 


300.00 


xxxxx 


301.00- 


320.00 


xxxx 


321.00- 


31+0.00 


XXX 


3^1.00- 


360.00 


XX 


361.00- 


380.00 


XX 


381.00- 


1+00.00 





mean 203.919 
signa 8*1.295 
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LITTLE LILLEY INPUT SOURCE 

Page 1 



1 -x~********#**l6o HISTOGRAM**^******** 
p . r . deichelbohrer 

1 format (30habcdefghi ( Jklinnopqrstuvwxyzi25^) 

7 format (f5.2) 

6 format (f7.2,lh-,f7.2,2x,50al,50al) 

66 format (f7.2.1h-,f7.2) 

5 format (30x,Wean,f9.3) 

h format (30x,5hsigma,f8.3) 

2 format (lx) 
77 format (15a2) 

79 format (17x,lhl,8x,2hlO,ox,2h20,ox,2h30,8x,2htK>,8x,2h50,ox, 

12h6o) ,,_ 

dimension dig ( 50 ) , a-l ( 50 ) , a2 ( 50 ) , iprcnt (100 ) , ixray { 100 ) , icl ( 1 5 ) 

6o do 11 i=l,50 

al(i)=0 

a2(i)=0 
11 dig(i)=0 

sum=0 

suroa-0 

ip=0 

sums=0 

3 read 1 

punch 1 

read 1 

punch 1 

punch 2 

punch 2 

read 7, alpha 

read 7, omega 

read 7, enc 

read 7, div 

d= ( omega-alpha ) 

do 100 n=l,lOO 
100 ixray(n)=23 

ck=l.-enc 

if(ck) 1*0,^0,30 
30 stinc=.0l 

go to 8 
ko stinc=l. 

8 read 7, data 

if (div) 200, 201, 201 
20l data=div/data 
200 if(ck) 203,203,20U 
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LITTLE LILLEY INPUT SOURCE 

203 data= (data/ 1 ) 

2cA if (data) 15, 17, 17 

17 i=( ( data-alpha )/enc) 

i=l+l 

dig(i)=dig(i)+l. 
sum=sum+l. 
suraa=suma+data 
dats=data*data 

sums=suras+datsh go to 8 

15 dmean=suiBa/sum 

dsigm=sqrtf (suns/sum-dmsan*dmean) 

ip=d/enc 

ip=ip+l 

punch 79 

do 18 i=l,ip 

18 iprcnt(i)=dig(i)/siao*lOO. 

alf=alpha 

do 25 i=l,ip 

al(i)=alf 

a2( i ) =alf +enc-stinc 

alf=a2(i)+stinc 

jprent =iprcnt ( i ) 

if f jprent) 20,21,20 

20 punch 6, al(i), a2(i),(ixray(n), n=l, jprent) 

go to 23 

21 punch 66, al(i), a2(i) 
23 continue 

punch 2 
punch 2 
punch 5, dmean 
punch h, dsigm 
do 28 i=l,15 
28 icl (i)=0 

punch 77. (icl(i), i=l,15) 

pause hkkh 

go to 6o 

st©p 1111 

end 

end 
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PAPER TAPE DUPLICATOR 

for 

LITTLE LILLEY DATA 

Procedure: 

A. Clear memory banks and 1. 

B. Clear memory bank selections. 

C. Load duplicator at (P) = 0000. 

1. Check sum: (A) = 0160; (P) = 0066 

D. Master Clear. 

E. Set all stop keys. 

F. Put "Little Lilley" data tape in reader and 
RUN from (P) = 0000. The data will be stored 
in memory banks and 1. 

G. When the input is completed, a stop will occur 
at (P) = 0020 and (Z) = 7701. DO NOT CLEAR! 

H. Turn on the punch and eject some leader. 

I. RUN from (P) = 0020. The data will now be 
punched out of banks and 1. 

J. When the output is completed, a stop will occur 
at (P) = 0037 and (Z) = 7702. DO NOT CLEAR! 

K. Insert the new paper tape into the reader. RUN 
from (P) = 0037. 

L. A stop will occur at (P) = 0065 and (Z) = 770H 
at the end of the verification. 

M. ERRORS 

1. (P) = 0017, (Z) = 7700 

Not enough storage space available 
(more than 2 banks required). 

2. (P) = 0051 or (P) = 0061 and (Z) = 7777 
Verification error. 
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NUMBER: T038 

TITLE: Quality Assurance Typewriter Speed Test 

CATEGORY: 160-A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 
The test will insure typing of 10 characters per second. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0777 

TERMINAL ADDRESS: 2130 
CHECK SUM: 4453 

STARTING ADDRESS: 0777 

ADDITIONAL INSTRUCTIONS; The "73" instruction is used for typewriter output. 
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T-038 
QUALITY ASSURANCE TYPEWRITER SPEED TB 



ST 



0777 7504 



1000 


7304 


1001 


2130 


1002 


7103 


1003 


4210 


1004 


1006 


1005 


0777 


1006 


0045 


1007 


0047 


1010 


0001 


1011 


0057 


1012 


0005 


1013 


0014 


1014 


0024 


1015 


0004 


1016 


0014 


1017 


0024 


1020 


0004 


1021 


0030 


1022 


0004 


1023 


0047 


1024 


0016 


1025 


0057 


1026 


0003 


1027 


0006 


1030 


0001 


1031 


0012 


1032 


0003 


1033 


0011 


1034 


0004 


1035 


0047 


1036 


0022 


1037 


0057 


1040 


0030 


1041 


0001 


1042 


0030 


1043 


0004 


1044 


0047 


1045 


0016 


1046 


0057 


1047 


0003 
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1050 


0012 


1051 


0015 


1052 


0003 


1053 


0012 


1054 


0030 


1055 


0001 


1056 


0014 


1057 


0003 


1060 


0006 


1061 


0004 


1062 


0001 


1063 


0025 


1064 


0015 


IO65 


0020 


1066 


0031 


1067 


0012 


1070 


0014 


1071 


0001 


1072 


0020 


1073 


0012 


107^ 


0004 


1075 


0024 


1076 


0015 


1077 


0020 


1100 


0020 


1101 


0022 


1102 


0004 


1103 


0001 


1104 


0020 


1105 


0024 


1106 


0001 


1107 


0042 


1110 


0004 


1111 


0004 


1112 


0047 


1113 


0001 


1114 


0057 


1115 


0005 


1116 


0020 


1117 


0012 


1120 


0020 


1121 


0045 


1122 


0030 


1123 


0012 


1124 


0020 


1125 


0004 


1126 


0030 


1127 


0015 
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1130 


0015 


1131 


0012 


1132 


0003 


1133 


0027 


113 1 * 


001+2 


1135 


OOOU 


1136 


0060 


1137 


0056 


lll+O 


OOOU 


llfcl 


0022 


111+2 


0020 


111+3 


0016 


111* 


0011+ 


111+5 


0007 


11U6 


0030 


111+7 


0011 


1150 


0001+ 


1151 


0016 


1152 


0005 


1153 


0030 


115*+ 


0012 


1155 


0030 


1156 


0016 


1157 


0001 


1160 


0020 


1161 


0012 


1162 


0021+ 


II63 


000U 


1161+ 


0015 


1165 


0020 


1166 


0012 


1167 


000U 


1170 


0011 


1171 


0011+ 


1172 


0006 


1173 


0020 


117*+ 


001+2 


1175 


0001+ 


1176 


0001+ 


1177 


001+7 


1200 


0001 


1201 


0057 


1202 


0005 


1203 


0020 


1201+ 


0001+ 


1205 


0021+ 


1206 


0015 


1207 


0020 
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1210 


0020 


1211 


0022 


1212 


oooi* 


1213 


0021* 


1211* 


0005 


1215 


0003 


1216 


0031* 


1217 


0011 


1220 


0022 


1221 


oooi* 


1222 


0023 


1223 


0020 


122** 


001*5 


1225 


0023 


1226 


0020 


1227 


0001 


1230 


0031 


1231 


0020 


1232 


0020 


1233 


0006 


123** 


oooi* 


1235 


0071* 


1236 


0056 


1237 


oooi* 


12U0 


0030 


12U1 


0006 


12l*2 


0022 


12i*3 


oooi* 


12UU 


0071* 


12l*5 


0070 


121*6 


oooi* 


121*7 


0016 


1250 


0005 


1251 


0030 


1252 


0012 


1253 


0030 


125k 


0016 


1255 


0001 


1256 


0020 


1257 


0012 


1260 


0021* 


1261 


oooi* 


1262 


0015 


1263 


0020 


1261* 


0012 


1265 


oooi* 


1266 


0021* 


1267 


0020 
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1270 


0016 


1271 


0003 


1272 


0006 


1273 


0022 


1274 


0014-2 


1275 


0004 


1276 


0004 


1277 


0047 


1300 


0011 


1301 


0057 


1302 


0003 


1303 


0031 


1304 


0020 


1305 


0012 


1306 


0004 


1307 


0016 


1310 


0030 


1311 


0021* 


1312 


0020 


1313 


0050 


1314 


ooo4 


1315 


0030 


1316 


0023 


1317 


0016 


1320 


0022 


1321 


0020 


1322 


0026 


1323 


0013 


1324 


0005 


1325 


0014 


1326 


0032 


1327 


0036 


1330 


0011 


1331 


0007 


1332 


0006 


1333 


0045 


1334 


0003 


1335 


0015 


1336 


0035 


1337 


0012 


1340 


0024 


134l 


0001 


1342 


0034 


1343 


0017 


1344 


0031 


1345 


0027 


1346 


0025 


1347 


0021 
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1350 


OO56 


1351 


0074 


1352 


0070 


1353 


0064 


1354 


0062 


1355 


0066 


1356 


0072 


1357 


0060 


1360 


0033 


1361 


0037 


1362 


0052 


1363 


0044 


1364 


0054 


1365 


0046 


1366 


0042 


1367 


0050 


1370 


0040 


1371 


0002 


1372 


0004 


1373 


0047 


1374 


0034 


1375 


0015 


1376 


0015 


1377 


0020 


1400 


0012 


1401 


0004 


1402 


0016 


1403 


0030 


1404 


0024 


1405 


0020 


1406 


0050 


1407 


0004 


1410 


0030 


1411 


0023 


1412 


0016 


1413 


0022 


1414 


0020 


1415 


0026 


1416 


0013 


1417 


0005 


1420 


001U 


1421 


0032 


1422 


0036 


1423 


0011 


1424 


0007 


1425 


0006 


1426 


0003 


1427 


0015 
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11*30 


0035 


1»*31 


0012 


1^32 


0021* 


U33 


0001 


11*3** 


0031* 


1^35 


0017 


1^36 


0031 


1»*37 


0027 


ll*l*0 


0025 


ll*l*l 


0021 


ll*l*2 


001*5 


ll*l*3 


0056 


lM*i* 


0071* 


lW*5 


0070 


ll*l*6 


0061* 


l»*l*7 


0062 


ll*50 


0066 


li*51 


0072 


1**52 


0060 


11*53 


0033 


11*5** 


0037 


1^55 


0052 


lk56 


ooi*i* 


1**57 


0051* 


11*60 


001*6 


lU6l 


001*2 


11*62 


0050 


11*63 


ooi*o 


11*61* 


0002 


11*65 


oooi* 


11*66 


oooi* 


11*67 


0030 


11*70 


0057 


11*71 


0011 


11*72 


0011 


1^73 


oooi* 


li*7i* 


0036 


11*75 


0020 


11*76 


0025 


11*77 


0021* 


1500 


oooi* 


1501 


0021* 


1502 


0005 


1503 


0003 


1501* 


0031* 


1505 


0011 


1506 


0022 


1507 


oooi* 
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1510 


0024 


1511 


0001 


1512 


0012 


1513 


0014 


1514 


0036 


1515 


0020 


1516 


0004 


1517 


0031 


1520 


0014 


1521 


0001 


1522 


0005 


1523 


0004 


1524 


0034 


1525 


0006 


1526 


0014 


1527 


0026 


1530 


0003 


1531 


0012 


1532 


0007 


1533 


0004 


1534 


0026 


1535 


0003 


1536 


0012 


1537 


0016 


1540 


0020 


1541 


0042 


1542 


0004 


1543 


0004 


1544 


0047 


1545 


0030 


1546 


0057 


1547 


0011 


1550 


0011 


1551 


0045 


1552 


ooi6 


1553 


0005 


1554 


0030 


1555 


0012 


1556 


0030 


1557 


0016 


1560 


0001 


1561 


0020 


1562 


0012 


1563 


0024 


1564 


0004 


1565 


0024 


1566 


0005 


1567 


0003 
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1570 


0034 


1571 


0011 


1572 


0022 


1573 


0004 


1574 


0023 


1575 


0020 


1576 


0004 


1577 


0011 


1600 


0020 


1601 


0013 


1602 


0014 


1603 


0023 


1604 


0011 


1605 


0020 


1606 


0004 


1607 


0031 


1610 


0014 


1611 


0001 


1612 


0005 


1613 


0004 


l6l4 


0001 


1615 


0005 


1616 


0020 


1617 


0004 


1620 


0036 


1621 


0020 


1622 


0025 


1623 


0004 


1624 


0015 


1625 


0012 


1626 


0020 


1627 


0024 


1630 


0024 


1631 


003U 


1632 


0012 


1633 


0020 


1634 


0004 


1635 


0016 


1636 


0003 


1637 


OOO6 


l64o 


0001 


1641 


0012 


1642 


0003 


1643 


0011 


1644 


0004 


1645 


0024 


1646 


0020 


1647 


0001 
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1650 


0004 


1651 


0030 


1652 


0001 


1653 


0004 


1654 


0021 


1655 


0020 


1656 


0012 


1657 


0003 


1660 


0042 


1661 


0045 


1662 


0047 


1663 


0023 


1664 


0057 


1665 


0030 


1666 


0004 


1667 


0004 


1670 


006l 


1671 


0061 


1672 


0016 


1673 


0036 


1674 


0024 


1675 


0015 


1676 


0004 


1677 


0016 


1700 


0020 


1701 


0004 


1702 


0061 


1703 


0061 


1704 


0061 


1705 


0O6l 


1706 


0030 


1707 


0016 


1710 


0020 


1711 


0004 


1712 


0003 


1713 


0015 


1714 


0020 


1715 


0012 


1716 


0030 


1717 


0004 


1720 


006l 


1721 


0001 


1722 


0014 


1723 


0003 


1724 


0006 


1725 


0004 


1726 


0014 


1727 


0024 
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1730 


0004 


1731 


0006 


1732 


0004 


1733 


0004 


1734 


0004 


1735 


0004 


1736 


0004 


1737 


0061 


1740 


0061 


1741 


0061 


1742 


0061 


1743 


0061 


1744 


0003 


1745 


0031 


1746 


0004 


1747 


0023 


1750 


0047 


1751 


0004 


1752 


0004 


1753 


0004 


1754 


0004 


1755 


0061 


1756 


0061 


1757 


0061 


1760 


0061 


1761 


0057 


1762 


0020 


1763 


0014 


1761* 


0006 


1765 


0013 


1766 


0004 


1767 


0061 


1770 


0045 


1771 


0016 


1772 


0004 


1773 


0004 


1774 


0004 


1775 


0004 


1776 


0004 


1777 


0004 


2000 


0004 


2001 


0004 


2002 


0004 


2003 


0004 


2001* 


0061 


2005 


0061 


2006 


0061 


2007 


0061 
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2010 


0061 


2011 


0061 


2012 


0061 


2013 


0061 


2011+ 


0061 


2015 


0061 


2016 


0005 


2017 


001+7 


2020 


0001+ 


2021 


0001+ 


2022 


0001+ 


2023 


0001+ 


2021+ 


0001+ 


2025 


0001+ 


2026 


0001+ 


2027 


0001+ 


2030 


0001+ 


2031 


0001+ 


2032 


0061 


2033 


0061 


203^ 


0061 


2035 


0061 


2036 


0061 


2037 


0061 


20*+0 


0061 


201+1 


0061 


20!+2 


0061 


20U3 


0061 


20kh 


0057 


201+5 


0020 


2046 


0001+ 


201+7 


0036 


2050 


0001+ 


2051 


0001+ 


2052 


0001+ 


2053 


0061 


205!+ 


0061 


2055 


0061 


2056 


0020 


2057 


0001+ 


2060 


0061 


2061 


0022 


2062 


0061 


2063 


0061 


2061+ 


0061 


2065 


0061 


2066 


0016 


2067 


0001+ 
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2070 


0004 


2071 


0004 


2072 


0042 


2073 


00U5 


207^ 


0045 


2075 


0045 


2076 


0047 


2077 


ooo6 


2100 


0003 


2101 


0004 


2102 


0015 


2103 


0012 


2101* 


0003 


2105 


0023 


2106 


0011 


2107 


0020 


2110 


0007 


2111 


0004 


2112 


0050 


2113 


0004 


2114 


0024 


2115 


0005 


2116 


0014 


2117 


0015 


2120 


0004 


2121 


0007 


2122 


0020 


2123 


0004 


2124 


0042 


2125 


0045 


2126 


0051 


2127 


0045 



2130 0000 
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NUMBER: T009 

TITLE: Typewriter Test 

CATEGORY: 160- A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 
This is an inclusive typewriter test consisting of three routines: 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

CHECK SUM: 1045 

TEN CHARACTER TEST 

STARTING ADDRESS: 0300 

The routine accepts ten characters typed in from the program and then types out 

a carriage return followed by the ten characters. 

DISCONNECT TEST 

STARTING ADDRESS: 0320 

This test accepts information until an input disconnect is set either automatically 
or manually. The program then types out a carriage return followed by the infor- 
mation up to the disconnect. 

TYPING TEST 

STARTING ADDRESS: 0340 

Information for this test is accepted until a carriage return is typed. The same 

information is then typed out. 
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co9 



O30O 



0310 



0320 



0330 



7511 


type in 


7207 


10 char 


2012 




7507 


type out 


7M»5 


CR 


7303 


to char 


2012 




6507 




2000 




U220 


type in code 


U210 


type out code 


0000 




0000 




0000 




0000 




disconnect test 


7515 


type in 


7213 




2200 




3611 




6U0U 




3207 




420U 




7507 


type out 


7W45 


cr 


7303 




2000 




6513 




2000 


start bf.tr. 


U220 


type in code 


U210 


type out cod,® 


0000 





lfii 



T009 



OjUo 230U preset 

U070 input 

7507 type in 
7600 

Ul70 store 
07U5 

600U CR 

5^70 no 

0350 6505 

U220 in code 

5^70 

1*203 

750U out 

730U 

2000 

6517 

0360 U210 out code 
2000 
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NUMBER: T039-A 

TITLE: Quality Assurance I/O Reliability Test 

CATEGORY: 160-A, 161, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 161, 163, 164 or 162 

PURPOSE 
This program checks the following: 

1) Reader is checked for proper operation with the 72 and 7600 instructions at normal 
reader speed and also start, stop operation. 

2) Punch is checked for proper operation with the 74, 73 and 7677 instructions, at 
normal speed and also at various lower speeds down to approximately one-fifth 
normal speed. 

3) The typewriter is checked for output with 73 and 74 instructions. 

4) Keyboard input is checked with 72 and 7600 instructions. 

5) A logic instruction check is made each cycle of the program. 

6) Buffer can also be completely checked if it is desired to run the 162, 163 or 164 
Magnetic Tape Units. The typewriter should be connected to the "Normal" I/O 
channel and the Magnetic Tape to the "Buffer" channel. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 in bank 

TERMINAL ADDRESS: 6500 

CHECKSUM: 0160 

STARTING ADDRESS: 0000 (6300 if Magnetic Tape is to be used) 

Set the punch level selection in "A" register 

0377 for 8 level, 

0177 for 7 level, 

0037 for 5 level paper tape 

Put the computer in run. 

The punch will run sufficient tape to reach the reader and stop with P = 2030. Insert 
the tape leader into the reader and put the computer back into run (do not master clear 
after punch stop). 
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The program will read and punch 50 groups of binary count then jump into a typewriter 
output routine. 

If Magnetic Tape is used on the buffer channel with this program the tape unit will cause 
asynchronous buffer interruptions. 

The Magnetic Tape will write and read an inverse binary count from bank 1. Following 
the typewriter output, the punch and reader will operate at a variable speed. 

At the end of this test, the computer will halt with input in the Status Mode. Type in 
10 characters and those 10 characters should be typed back out. 

Type in, to a maximum, 127 characters followed by manual disconnect. The same 
characters should be typed back. 

Type in, to a maximum, 127 characters followed by a carriage return. The same 
characters should be typed back. 

The typewriter will then output the entire typewriter repoitoire with a 74 instruction 
and jump into a punch reader test using the 7600 and 7677 instructions. Following this 
test, the computer will jump into the logic test. 

From the logic test the computer programs will jump to the initial punch-reader test. 

At the termination of all tests except typewriter tests, the typewriter will type out the 
status of the test. 

HALT EXPLANATION 

2046 Error data displayed in "A" register. Is indicated if an error 

occurs in (test 2), the first reader-punch program. 

Put the computer into run (do not master clear). 

2050 Correct data displayed in "A" register. Observation of the paper 

tape frame immediately behind the read station will determine if 
the error was due to punch or reader error. 

The operator may re-synchronize the program by moving the 
correct data plus 1 count under the read station. 
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HALT EXPLANATION (Cont'd.) 

4600 or 4633 Error data displayed in "A" register. Is indicated if an error 

occurs in (test 4) the second reader-punch program. 

Put the computer back into run. 

4602 or 4635 Correct data displayed in "A" register. Observation of the paper 

tape immediately behind the read station will determine whether it 
was a punch or reader error. 

Put the computer back into run (do not master clear). The program 
will search for synchronization and continue to read and punch at a 
variable speed. 

4154 Error data displayed in "A" register. Is indicated if an error 

occurs in (test 6) the third reader-punch test. 

Put the computer back into run (do not master clear). 

4156 Correct data displayed in "A" register. Observation of the tape 

immediately behind the read station will determine whether it was 
a punch or reader error. 

The program may be re -synchronized by putting the correct data 
plus 1 count under the read station and putting the computer back 
into run. 

If a parity error occurs on the Magnetic Tape program, the tape 
unit will backspace a maximum of 3 times to rewrite or re-read 
the data. 

If a parity error still exists after 3 trials the computer will stop. 

6011 Parity error write. 

622 6 Parity error read. 

6160 If a comparison error occurs, "A" register will contain the address 

in bank 1 of error data. 

Correct data should be the complement of the address. The com- 
puter may be put into run to continue the test after any of the above 
stops. 
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HALT EXPLANATION (Cont'd.) 

1760 Indicates a paper tape level selection different than those described 

under Operating Instruction. 

If an error occurs in the typewriter tests (test 3 or test 5) the 
operator may determine the error by observing the data that was 
typed out. 
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M.L. 

0000 

6300 
20I40 
2106 
2301 
2351 

i*570 

U667 
5363 
5626 
1*100 

1051 
U200 
3715 
61*31 
6U36 
6I4I43 
6U5U 



Initial start without 163 or 16U Magnetic Tape. 
Initial start with 163 or I6I4 Magnetic Tape. 
Entrance to Test #2 (Punch and Reader) 



Exit from Test #2 

Entrance to Test #3 

Exit from Test #3 

Entrance to Test #1* 

Exit from Test #U 

Entrance to Test #5 

Exit from Test #5 

Entrance to Test #6 

Exit from Test #6 

Entrance to Test #1 

Exit from Test #1 

Entrance to Type Out Status from Test #1 

Entrance to Type Out Status from Test #2 

Entrance to Type Out Status from Test #U 

Entrance to %pe Out Status from Test #6 



(Typewriter Output) 

(Punch and Reader Var. Speed) 

(Typewriter Input-Output) 

(Punch and Reader) 

(Logic Test) 
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T039-A 



00000 



4033 

o6oi 
4032 
7101 
1750 
0000 
0000 
0000 



Store Reader-Punch Mask 

Store Limit 
Ind. Jump 



00010 



00020 



0000 
0000 
0000 
0000 
0000 
4225 
7101 
1750 

0000 
4024 
7101 
5734 

0000 

3724 

0000 
0000 



Ind. Address for Half Write 



Variable Address (6052) (6130) (5751) (6250) (6100) 
Data Stored at Interrupt 



00030 



ooo4o 



0000 
0000 
0000 

ooco 

0000 
0000 

0530 

0667 

4062 
5473 
5473 

7643 
1171 
5624 
1230 

0000 



Ind. Address 
Ind. Address 



Variable 
Ind. Address 

Ind. Address 
Variable 



00050 



1303 
1355 
7070 

1375 
4l6o 
4166 
o4oo 
6011 



Ind. Address 
Ind. Address 



Set lienor:/ Location 7777 to Initial Variable 
Set Memory Location 3$0k to Initial Variable 
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00060 7777 

o4oo 

0200 

oo4o 

2011 

7643 

3504 Ind. Address 

2066 

00070 4030 Set Punch Output Data to Zero 

4174 Set Punch Output Data to Zero 

7101 Ind. Jump to Start Test #2 
2000 

2066 

0000 
0000 
0000 

00100 6005 Test Zero Jump Forward 
0460 

0000 Error 
0465 

0000 Error 

6502 Test Non-Zero Jump Back 

6205 Test Pos. Jump Forward 

0462 

00110 0000 Error 
0467 

0000 Error 

6702 Test Neg. Jump Back 
0577 

6105 Test Non-Zero Jump Forward 
o46l 
0000 Error 

00120 0464 

0000 Error 

6402 Test Zero Jump Back 

6305 Test Neg. Jump Forward 

0463 

0000 Error 

0466 

0000 Error 

00130 6602 Test Pos. Jump Back 

0110 Left Shift "A" 3 Bit Positions 

6303 Test Neg. Jumo Forward 

0463 

0000 Error 

0110 Left Shift "A" 3 Bit Positions 

6205 Test Pos. Jump Forward 

0462 
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ooito 0000 
ok6i 
0000 
6702 

0^00 

6005 
0U00 

6001 

00150 (Ao4 
0000 

2307 
6304 
0423 

0000 

1075 

2301 

00160 3315 
6003 

0433 
0000 

2706 
3307 
6003 

0427 



Error 

Error 

Test Keg. Jump Back 

Test LDN Instruction 



Pass 



^rror 

Test LDB Instruction 



-irror 



'.'est ADB Instruction 



i^rror 

Test LGB Instruction 



00.170 0000 Error 

2313 Test 33B Instruction 
3714 

6003 
0J137 

0000 Error 

2320 Test 3BD Instruction 

4035 

00200 3^35 
6003 
0^34 
0000 Error 

2313 Test Left Shift "A" 1 Bit Position 
0102 

6303 
0401 

00210 0000 Error 
0102 
6203 
0401 

0000 Error 
0102 
6203 

o4oi 
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00220 0000 Error 
0102 

6303 

OltOl 

0000 Error 

0102 

6303 
0l*01 

00230 0000 Error 
0102 
6203 
Ok)l 

0000 Error 
0102 
6203 

0U01 

002ltO 0000 Error 
0102 
6303 

0U01 

0000 Error 

0102 

6203 

otoi 

00250 0000 Error 
0102 
6303 

0U01 

0000 Error 

0102 

6303 

0U01 

00260 0000 Error 
0102 
620k 

otoi 

0000 Error 
Ok)**- 

2301 Test Left Shift "A" 3 Bit Positions 
0110 

002T0 6303 

otoi 

0000 Error 

0110 

6203 

otoi 

0000 Error 
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00300 



00310 



00320 



00330 



003to 



00350 



6303 




otoi 




0000 


Error 


0110 




6203 




otoi 




0000 


Error 


2303 


Test Logical Product Backward 


1301 




6203 




0U13 




0000 


Error 


0102 




6303 




0^13 




0000 


Error 


0102 




6203 




6kl3 




0000 


Error 


0102 




6203 




0^13 




0000 


Error 


0102 




6303 




0413 




0000 


Error 


0102 




6203 




0^13 




0000 


Error 


0102 




6203 




0*H3 




0000 


Error 


0102 




6203 




0413 




0000 


Error 


0102 




6203 




01*13 




0000 


Error 


0102 




6203 




0413 




0000 


Error 
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00360 0102 

6303 
0413 
0000 
0102 

6303 

0413 
0000 

00370 2307 
116k 
6303 

0lH7 
0000 
0102 

6303 

0417 
ooi+oo 0000 

0102 

6203 

0^17 
0000 
0102 

6303 
0U17 

ooino 0000 

0102 

6303 
6kl7 
0000 
0102 

6303 

OlH7 



irror 



i-rror 



Test Selective Complement Backward 



jrror 



ijrror 



xiirror 



Error 



irror 



00^20 0000 Error 
0102 
6203 
0Ul7 

0000 Error 
0102 
6203 
0U17 



00^30 0000 Error 
0102 
6203 
0U17 
0000 
0102 
6203 
0l*17 



ijrror 
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O0440 0000 Error 

6303 

041T 

0000 Error 

0102 

620k 

0417 



10^50 



0046o 



00^70 



00500 



00510 



0000 

5252 
2701 
6203 
0427 

0000 
0102 

6303 

0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

0427 
0000 
0102 
6203 
0427 
0000 
0102 

6303 



iirror 



Test Load Complement Backward or Shift Replace Forwa 



ijirror 



iiirror 



lii-ror 



iirror 



Error 



irror 



irror 



i;.rror 



jiirror 
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00520 



00530 



005^0 



00550 



00560 



00570 



0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

0427 
0000 
0404 
0704 
6003 
0407 
0000 
7101 

0563 
2211 
4366 
2301 
0704 
4303 
3607 
6506 

46o4 
6576 
0446 

0000 

5252 
4306 

0427 
0530 

04-50 

0563 
0566 
2301 
4324 
6524 
2305 
4327 

2312 
4136 
2036 
0704 
4036 
1715 
6506 
2320 



i!jri-or 



Mirror 



s^rrac 



^rror 



Variable Jump Address (0£66) 

Change Error Stop Codes from 0027 to 00i|6 



Start Shift Replace Forward Test 
Jump Back to Bit Test 



Change Jump Address from 0^63 to 0566 



Change Jump Address from 0^66 to 0^63 
Change Error Stop Codes from 00^6 to 0027 
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oo6oo 



00610 



00620 



00630 



oo64o 



x. - \JJ\f 



h036 
2725 
^326 
6103 
2525 
7777 
6k60 

53^5 

2303 
3705 
6303 
OU37 
0000 
0102 
6203 
0^37 



0000 
0102 
6303 
0^37 
0000 
0102 
6203 
0^37 

0000 
0102 
6303 
0^37 
0000 
0102 
6203 
0^37 

0000 
0102 
6303 
0457 
0000 
0102 

6203 
C&37 



Reset Variable 
Jump Forward 

Reset Relative Store 

Test Subtract Back Instruction 

Error 



i^rror 



0000 

0102 

6303 

0^37 

0000 Error 

0102 

6203 

0^37 



-.rror 



..rror 



Ji.rror 



urror 



^rror 



^rror 



oo66o 



00670 



00700 



00710 



00720 



00730 



0000 
0102 
6303 
0^37 
0000 
0102 
6203 
0^37 

0000 

7101 
0721 
2217 
4361 
2301 

0704 

4303 
3613 

6506 
2205 
3205 
6572 

0^32 
0000 

1*016 
1231* 

01*37 
Ol*32 
1*301 
1*361 
0607 
0667 
0721 

0721* 
2301 
1*330 
6530 
2310 
1*331 
2307 
^335 

2317 
U137 
2037 
0701* 

1*037 
3720 
6506 
2321 



Error 



irror 



Error 

Variable Jump Address (072J4.) 

Change Error Stop Code from 0037 to 0032 



Start Add Forward Test 
Jump Back to Bit Test 



Change Variable Jump Address from 0721 to 0721; 

Jump Back 

Reset Relative Store Back 

Change Jump Address from 0721; to 0721 



Change Error Stop Code from 0032 to 0037 



Set Ind. Address 



161:33 



00740 4037 

2311 Test Logical Product KG Address Instruction 

0207 

0707 

6003 

0402 

OOOO Error 

2304 Test Logical Product Direct Instruction 

00750 1052 
6003 

04io 

0000 Error 

1111 TSSt Logical Product Indirect Instruction 

6003 
0411 

00760 0000 Error 

2304 Test Logical Product Forward Instruction 
120*4- 

6004 

0412 

0000 Error 

6666 

2326 Test Selective Complement HO Address 

00770 0315 
3710 
6003 
01*03 
0000 Error 

2714 Test Selective Complement Forward 
1442 

6003 

01000 0414 

0000 Error 

2371 Test Selective Complement Indirect 

1537 

6003 

0415 

0000 Error 

2304 Test Selective Complement Forward 

01010 i6oh 
6004 
oki6 

0000 Error 
1537 

2041 Test Load Direct Instruction 
3604 
600k 
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01100 2750 
3137 
6003 
0^31 
0000 
2705 
3204 

6ook 

01110 0U32 
0000 

2750 
2313 

07^3 
3710 
6003 

Qk07 

01120 0000 

2363 
3^1 
6003 
0^34 
0000 

2376 

3537 

01130 6003 
0435 
0000 

2304 
3604 

600h 
Oh36 
0000 

onto 3537 
20&L 

tote 

2041 
3hh2 
6003 
0*t4o 
0000 



01150 



Test Add Indirect Instruction 



Hiiror 

Test Add Forward Instruction 



i^rror 

Test Subtract No address Instruction 



.error 



Test Subtract Direct Instruction 



ii>rror 

Test Subtract Indirect Instruction 



irror 

Test Subtract Forward Instruction 



Jirror 



Test Store Direct Instruction 



2312 

0601 
4137 

2137 

6004 

(Ml 
0000 



Error 

Test Store Indirect Instruct:'..::", 
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01160 0437 
2305 
4206 

2707 
3204 

6007 
0442 
0000 

01170 0000 
7507 
2470 
7507 
4443 
3702 
6003 
0444 

01200 0000 
2306 
0102 
4310 
4544 
3712 
6004 
0445 

01210 0000 
4321 
2320 
0102 
4322 
2304 
0102 
4206 

01220 4707 
3604 

6007 
0447 
0000 
0643 
5624 
0435 

01230 0435 
2303 
0617 
4305 
0417 
5045 
3710 
6003 



Test Store Forward Instruction 



i^rror 

Stored Data 

Variable 

Variable 

Variable 

Test Shift Replace Direct Instruction 



iirror 

Shift Variable 



Test Shift Replace Indirect Instruction (i|li contains 1171) 



Jirror 

Variable 

Test Shift Replace Backward Instruction 



Error 
Variable 

Test Replace Add Direct Instruction 
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01240 



01250 



01260 



01270 



01300 



01310 



0450 
0000 
2211 
0671 
4207 
OVfl 
5146 
36o4 

6oo4 
0451 

0000 

0435 
2211 
0644 

4207 
0444 

5206 
3604 

6007 
0452 
0000 

0451 
0451 
2431 

2431 
2301 
0625 
4303 

0425 

5306 
3706 
6010 

0453 
0000 
0000 

0772 
0772 
4101 
4101 

2305 

0601 
4307 
5447 
3711 
6003 
0454 

0000 

2313 



ixrror 



'Test Replace Add Indirect Instruction 



(l'I.L.ii.6 contains 1230) 



-jrror 

Variable 

Test Replace Add Forward Instruction 



wi-ror 
Variable 
Variable 
Variable 

Variable 

Test Replace Add Backward Instruction 



j-.rror 

Variable 

Variable 

Variable 

Variable 

Variable 

Test Replace Add One Direct Instruction 



Error 

Test Replace Add One Indirect Instruction 
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01320 


0601 
4315 
5550 






(M.L.50 contains 1303) 




3717 






6003 






(*55 






0000 


Error 




2212 


Test Replace Add One Forward Instruction 


01330 


4210 
0601 
4207 
5605 
3605 
6005 
OU56 






0000 


Error 


oi3to 


3720 


Variable 




3720 


Variable 




2335 


Tent Replace Add One Backward Instruction 




0601 






4337 






5737 






374l 






6003 




01350 


0457 






0000 


Error 




7051 


Test Jump Instruction 




0470 






0000 


Error 




7101 


Test Jump Instruction 




1361 






0471 




01360 


0000 


Error 




5611 


Incr. Test Count 




6303 






o4oo 






7112 


Jump Ind. to 0100 




2212 


Reset Test Count 




4204 






o4oo 




01370 


7101 
i4oo 






0314 


Test Count 




7101 
11*00 

0000 


Jump to Expanded Capabilities 








0100 






0314 
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01400 



oi4io 



01420 



01430 



01440 



01450 



2200 

7643 
3701 
6002 
0000 
2304 
4203 
4706 

4600 
7507 
2311 
3702 
6002 
0000 

2305 

4200 

7507 
1710 
6002 
0000 
2704 
4202 
5600 
0270 

0701 
3311 
6003 
0000 
7643 
5200 
7643 
3703 

6002 
0000 
4706 
4305 
2706 
4203 
2312 
1200 

0560 
6002 
0000 

2303 

4202 
1600 
0506 
6002 



Test Load Constant Instruction 
Variable 



iji-ror 

Set Variable 



Test Shift Replace Constant Instruction 
Variable 



.--rror 

Test Store Constant Instruction 



^rror 

Set Variable 

Test Replace Add One Constant Instruction 



-irror 

Variable 

Test Replace Add Constant (add zero) Instruction 



.urror 

Set Variables 

Set Variable 

Test Logical Product Constant Instruction 



^rror 

Set Variable 

Test Selective Complement Constant Instruction 
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Oll*60 



oiVro 



01500 



01510 



01520 



01530 



0000 
2303 

1*202 
2600 
0506 
3307 
6002 
0000 

230U 
U202 
3600 
0506 
6002 
0000 
2703 
U203 

2305 
3200 
7271 
6002 
0000 
0101 

0603 

1+205 

0101 
3603 
6003 

0000 

1510 

5701 
0101 

0705 

370U 
6002 

0000 
0101 

4310 
oJ*o^ 
5312 

0101 

371^ 
6002 

0000 
0101 
1<-212 

0103 

1*211 
2207 



^rror 

Set Variable 

Test Load Complement Constant Instruction 
Variable 



.hrror 

Set Variable 

Test Subtract Constant Instruction 
Variable 

Error 

Set Variable 

Test Add Constant Instruction 

Variable 

Error 

Test P-*A Instruction 



Error 

Variable 



i^rror 



^rror 



Test Left Shift Two 
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015^0 3206 
3205 
320^ 
36oh 
6ooh 

0000 3rror 
1533 Variable 
6l5k Variable 



01550 



01560 



01570 



01600 



01610 



0101 
1*213 
0111 
1*212 
1*610 
1*607 
l*6o6 
0103 

0102 
3604 
6005 
0000 
1550 
5300 
0000 

0113 
6003 

0000 
0001 

2301 
0113 

1*225 
230U 
0103 

0102 
1*222 
2310 
0102 
5217 
0103 
0102 
1*215 

1*613 
3213 
3610 
6002 
0000 
5723 
3607 
6111* 



Test Left Shift Six 



Jirror 

Variable 

Constant 



Test Multiply by 100 (X zero) 



.Lrror 

Variable 



Test Multiply by 100 (X) 



i^rror 

Check Limit of Variable 
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01620 6oo6 Jump Forward to Reset Variable 
0000 
0000 
0000 
0000 

0623 Constant Limit 
Otol Reset Variable 
^335 

01630 6103 
1632 

76^3 Variable 
16?° ^st Load Memory Instruction 

3703 
6002 
0000 Error 

0l6k0 2706 

1100 Test Logical Product Memory Instruction 

1632 

6002 

0000 Error 

2313 

1500 Test Selective Complement Memory Instruction 
I632 

01650 6002 

0000 Error 

2500 Test Load Complement Memory Instruction 

1632 

3322 

6002 

0000 Error 

2725 

01660 3100 Test Add Memory Instruction 
1632 
6002 

0000 Error 
2332 

3500 Test Subtract Memory Instruction 

1632 

6002 

01670 0000 Error 
2337 
^206 

1+100 Test Store Memory Instruction 

1632 

3603 

6003 

0000 Error 
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01700 



01710 



7643 
4701 
4500 
1632 
3704 
6002 
0000 
5707 

5500 
1632 
3712 
6002 
0000 
0423 
5316 
0423 



Variable 

Change Variable 

Test Shift Replace Memory Instruction 



iirror 

Change Variable 

Tent Replace Add One Memory Instruction 



i^rror 

Set Variable 



01720 



01730 



5100 
1632 
1722 
6002 
0000 

5604 
6006 
7101 

1400 
0000 
0000 
0000 

7101 
3500 

0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

7736 



01750 1461 
6010 
2032 
1462 
6006 
2032 

1463 

6oo4 



01740 



Test Replace Add Memory Instruction 



irror 

Incr. Test Count 

Jump Back to Expanded Capabilities Test 



Test Count 



Juraio to loO-A Logic 



Check Reader Punch Level Selection 
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01760 0000 lirrpr - Illegal Level Selection liade 
0T07 Set Initial Paper Tape Length 
0716 
0604 
3036 
4164 

2065 Load Initial Variable (76U3) 
7101 Ind. Jurap 

01770 0054 
0016 
0004 
0004 

ooo4 

0004 

0577 

4270 

02000 0577 Set Initial Tape Leader Length 
4200 
7700 
0120 

7564 Punch Out Leader 
7^00 

0120 Clear Interrupt Lockout 
5705 Incr. Leader Count 

02010 6505 

0507 Initial Tape Length (0^0? for 8 level selection) 

4200 

7770 

0001 

7553 Punch Output from M.L. 2066 

7353 

2067 

02020 0120 Clear Interrupt Lockout 
5645 Incr. Punch Data 
1033 Logical Product with Mask 
4243 
6507 

5712 Incr. Initial Block Count 
6511 
5637 

02030 7777 Halt to Load Paper into Reader 
0120 

7535 Leader Search 
7600 

6403 
6104 
0120 

7530 
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02040 



02050 



02060 



02070 



02100 



02110 



T600 
0120 
4223 
3623 
6005 
2220 
0000 
2217 

7700 
5615 
1033 
4213 
6516 
0120 
7512 
7312 

2067 
0120 
7101 

2073 
0000 
0000 

0000 
4102 

4104 
2066 
7720 
7100 
6031 
5707 
1033 
4311 

6523 
5707 

6544 

0557 
4312 
7101 
6436 
0011 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 



Reader Input to "A" 
Clear Interrupt Lockout 

Compare Data 

Load Error Data 

Error Halt 

Load Correct Data 

Halt 

Incr. Data 

Logical Product Mask 



Punch Out from I-I.L. 2066 



Clear Interrupt Lockout 
Ind. Jump 



Punch Output Data 
Exf • Code - Reader 

Erf, Code - Punch 
Starting Address 

Return Jump - Check for Hag. Ts.v,e Re-wind Condition 
Incr. Data 



Incr. -Sn Block Count 



8 
Reset Block Count 

Ind. Jump to Type Out Test Status 
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02120 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



02130 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



02140 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



02150 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



02160 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



02170 



0000 

ooco 

0000 
0000 
0000 
0000 
0000 
0000 



161:47 



02200 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02210 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02220 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02230 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02240 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02250 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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02260 



02270 



02300 



02310 



02320 



02330 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

3476 
7500 
4210 

7317 
2364 
0120 
2302 

3707 

6030 
2211 
0610 
4207 
2310 

0610 
4312 

3604 

6105 
6007 

2354 
3474 
3476 
7100 
6031 
6426 

2304 
4325 
6505 

0000 
0000 
0000 

2354 

2364 



Entrance for Test #3 
Erf. Code for Type Out 

Term. Address (Variable) 
Clear Interrupt Lockout 

Check Limit 

Jump to 23I1.O at end of Paragraph 

Add +10 to Starting Address 

Add +10 to Terra. Address 
Check Limit 

Starting Address (Variable) 

Return Jump - Check for Hag. Tape Rewind Condition 

Jump Back to 2301 

Complete Block by setting final Term. Address 
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02340 



02350 



02350 



02370 



02400 



02410 



2301 

^335 
2304 
4321 
5606 
6544 
0502 
4203 

7101 
4566 

7775 
0000 

0045 
0047 

0001 

0057 
0005 

0014 
0024 

ooo4 
ooi4 

0024 
0004 

0030 

ooo4 
0047 
0016 
0057 
0003 
0006 

0001 
0012 

0003 

0011 

ooo4 
0047 
0022 

0057 
0030 

0001 

0030 
ooo4 
0047 

0016 

0057 

0003 

0012 

0015 



Reset Term. Address 

Reset Starting Address 

Incr. Paragraph Count 

1JZB to Type Another Paragrar 

Reset Paragraph Count 

axit to Test #U 
Paragraph count 
O.R. 

u.c. 

T 
L.C. 

h 



3P. 
a 



U.C, 

c 

L.G. 

o 

n 

t 

r 



1 

SP. 

U.C. 

D 

L.C. 

a 

t 

a 

SP. 

U.C. 

C 

L.C. 



r 
P 



161:50 



02420 



02430 



02440 



02450 



02460 



02470 



0003 





0012 


r 


0030 


a 


0001 


t 


0014 


i 


0003 





0006 


n 


0004 


sp. 


0001 


t 


0025 


y 


0015 


p 


0020 


e 


0031 


V 


0012 


r 


0014 


i 


0001 


t 


0020 


e 


0012 


r 


0004 


sp. 


0024 


s 


0015 


p 


0020 


e 


0020 


e 


0022 


a 


0004 


Sp. 


0001 


•b 


0020 


e 


0024 


s 


0001 


t 


0042 


• 


0004 


sp. 


0004 


sp. 


0047 


u.c, 


0001 


T 


0057 


1j»L>« 


0005 


h 


0020 


e 


0012 


r 


0020 


e 


0045 




0030 


a 


0012 


r 


0020 


e 


0004 


sp. 


0030 


a 


0015 


P 


0015 


P 


0012 


r 
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02500 



02510 



02520 



02530 



02540 



02550 



0003 





0027 


X 


0042 


• 


0004 


sp. 


0060 


7 


0056 





0004 


ST). 


0022 


d 


0020 


e 


0016 


c 


0014 


j_ 


0007 


1.1 


0030 


a 


0011 


1 


0004 


sp. 


0016 


c 


0005 


Ii 


0030 


a 


0012 


r 


0030 


a 


0016 


c 


0001 




0020 





0012 


y* 


0024 


'j 


0004 


■-'?* 


0015 


x 


0020 


e 


0012 


r 


0004 


3 • 


0011 


1 


0014 


i 


0006 


n 


0020 


G 


0042 


• 


0004 


Sp. 


0004 


sp. 


0047 


u.c. 


0001 


T 


0057 


L.C. 


0005 


11 


0020 


e 


0004 


sp. 


0024 


s 


0015 


P 


0020 


e 


0020 


e 



0022 a 
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02560 0004 sp. 

0021* s 

0005 h 

0003 o 
0034 u 

0011 1 

0022 d 

0004 sp. 

025TO 0023 b 

0020 e 

0045 CR. 

0023 b 
0020 e 
0001 t 
0031 v 
0020 e 

02600 0020 e 

0006 n 

0004 sp. 

0074 1 

0056 

0004 sp. 

0030 a 

0006 n 



02610 0022 d 

0004 ST) 

007^ 1 

0070 2 

ooo4 

0016 c 

0005 h 
0030 a 

02620 0012 r 

0030 a 

0016 c 

0001 t 

0020 e 

0012 r 
0024 
0004 



• 



sp. 



s 
3p« 



02630 0015 P 

0020 e 

0012 r 

0004 sp, 

0024 s 

0020 e 

0016 c 

0003 o 
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0261*0 0006 


n 


0022 


d 


00k2 


• 


000k 


sp. 


oook 


sp. 


00k7 


u.c. 


0011 


L 


0057 


L.C. 


02650 0003 





0031 


w 


0020 


e 


0012 


r 


000k 


sp. 


0016 


c 


0030 


a 


002^ 


s 


02660 0020 


e 


0050 


• 
» 


000% 


sp. 


0030 


a 


0023 


b 


0016 


c 


0022 


d 


0020 


e 


02670 0026 


£ 


0013 


g 


0005 


h 


OOlk 


i 


0032 


j 


0036 


k 


0011 


1 


0007 


ra 


02700 0006 


n 


00^5 


as. 


0003 





0015 


P 


0035 


q 


0012 


r 


002k 


s 


0001 


t 


02710 003k 


u 


0017 


V 


0031 


w 


0027 


X 


0025 


7 


0021 


z 


0056 





007k 


1 
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02720 0070 2 

006^ 3 

0062 h 

0066 $ 

0072 6 

0060 7 

0033 G 

0037 9 

02730 0052 

OOWf / 

005 1 * » 

0046 + 

00^2 . 

0050 j 

ooto , 

0002 * 



027 l »O OOOU 



ST), 



00U7 u.c, 

003^ u 

0015 p 

0015 p 

0020 E 

0012 H 
OOOU sp. 

02750 0016 C 

0030 A 

002U 3 

0020 E 

0050 : 

000^ sp. 

0030 A" 

0023 B 

02760 0016 C 

0022 D 

0020 E 

0026 F 

0013 G 

0005 H 
OOOA I 
0032 J 

02770 0036 K 

0011 L 
0007 K 

0006 N 

0003 

0015 P 

0035 Q 

0012 R 
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03000 


002l» 







0001 


X 




003U 


u 




0017 


V 




0031 


w 




0027 


jti. 




0025 


I 




0021 


z 


03010 


00U5 


O'U 




0056 


) 




007U 






0070 


© 




006k 


■>!■ 




0062 


1.:) 




0066 


c" 

p 




0072 


$ 


03020 


0060 


n 
IS. 




0033 


1 

1 




0037 




0052 






00W 


1 




005U 


n 




00U6 







00^2 


• 


03030 


0050 


• 
• 




ooto 


$ 




0002 


♦ 




oooi* 


sp» 




000U 


sp. 




0030 


A 




0057 


L.C, 




0011 


1 


030to 


0011 


1 




000^ 


sp. 




0036 


k 




0020 


e 




0025 


y 




002U 


s 




000U 


SP # 




002lf 


s 


03050 


0005 


h 




0003 







003^ 


u 




0011 


1 




0022 


d 




oooi* 


ST)» 




002U 


J. w 

S 




0001 


t 
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03060 


0012 


r 




OOlif 


i 




0036 


k 




0020 


e 




000U 


sp. 




0031 


w 




001U 


i 




0001 


t 


03070 


0005 


h 




000^ 


sp. 




003^ 


u 




0006 


n 




001^ 


i 




0026 


f 




0003 







0012 


r 


03100 


0007 


n 




OOOif 


sp. 




0026 


f 




0003 







0012 


r 




0016 


c 




0020 


e 




00U2 


• 


03110 


0004 


sp. 




00C4 


sp. 




OCA? 


U.G. 




0030 


A 




0057 


L,C, 




0011 


1 




0011 


1 




00^5 


03, 


03120 


0016 


G 




0005 


h 




0030 


a 




0012 


r 




0030 


a 




0016 


c 




0001 


t 




0020 


e 


03130 


0012 


r 




002^ 


s 




000U 


sn. 




002l». 


s 




0005 


h 




0003 







003^ 


u 




0011 


1 
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03140 



03150 



03160 



03170 



03200 



03210 



0022 


d 


0004 


sp. 


0023 


b 


0020 


e 


0004 


sp. 


0011 


1 


0020 


e 


0013 


g 


0014 


i 


0023 


b 


0011 


1 


0020 


e 


0004 


sp. 


0031 


w 


00l4 


i 


0001 


t 


0005 


h 


0004 


Sp. 


0001 


t 


0005 


h 


0020 


e 


0004 


sp. 


0036 


k 


0020 


e 


0025 


7 


0004 


sp. 


0015 


P 


0012 


r 


0020 


e 


0024 


s 


0024 


s 


0034 


u 


0012 


r 


0020 


e 


0004 


sp. 


0016 


c 


0003 





0006 


n 


0001 


t 


0012 


V 


0003 





0011 


1 


ooo4 


sp. 


0024 


s 


0020 


e 


0001 


t 


0004 


sp. 


0030 


a 
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03220 


0001 


t 




ooo4 


sp. 




0021 


z 




0020 


e 




0012 


r 




0003 







oo42 


• 




0045 


CR. 


03230 


0047 


u.c. 




0023 


B 




0057 


L.C. 




0030 


a 




0004 


sp. 




0004 


sp. 




0061 


BS. 




0061 


BS. 


03240 


0016 


C 




0036 






0024 


D 




0015 


P 




0004 


sp. 




0016 


C 




0020 






0004 


sp. 


03250 


0061 


BS. 




0061 


BS. 




0061 


.DD. 




0061 


BS. 




0030 


a 




0016 


c 




0020 


e 




0004 


sp. 


03260 


0003 







0015 


P 




0020 


e 




0012 


r 




0030 


a 




0004 


sp. 




006l 


BS. 




0001 


t 


03270 


0014 


i 




0003 







0006 


n 




0004 


sp. 




0014 


i 




0024 


s 




0004 


sp. 




0006 


n 
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03300 



03310 



03320 



03330 



03340 



03350 



0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


Sp. 


0004 


STO. 


0061 


BS. 


0061 


B3. 


0061 


Uu> 9 


0061 


33. 


0061 


BS. 


0003 





0031 


w 


0004 


ST3. 


0023 


b 


0047 


U.G 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0061 


33. 


0061 


33. 


0061 


B3. 


0061 


B3. 


0057 


L.C 


0020 


e 


0014 


i 


0006 


n 


0013 


c3 


ooo4 


sp. 


0061 


B3 » 


0045 


CH. 


0016 


C 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


ooo4 


sp. 


ooo4 


sp. 


0061 


B3. 


0061 


tap* 


0061 


BS. 


0061 


BS. 


0061 


3S. 


0061 


B3. 
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03360 0061 BS. 

OO6I BS. 

006l BS. 

OO6I BS. 

0005 h 

0047 U.C. 

ooo4 

ooo4 



sp. 
sp. 



03370 0004 S p. 
0004 sp 
0004 

ooo4 



sp. 
sp. 



— „^ 

0004 sp. 

0004 sp. 
0004 

ooo4 



sp. 
sp. 



03400 0061 BS. 

0061 BS. 

006l BS. 

006l BS. 

0061 BS. 

0061 BS. 

0061 BS. 

0061 BS. 

03410 006l BS. 

006l Bs. 

0057 L.C. 

0020 e 

0004 sp. 

0036 k 

ooo4 sp. 

0004 sp. 

03420 ooo4 sp . 

0061 BS. 

0061 BS. 

006l BS. 

0020 e 

0004 sp . 

OO6I BS. 

0022 d 

03430 OO6I BS. 

0061 BS. 

0061 BS. 

006l BE. 

0016 C 

0004 sp. 

0004 sp. 

0004 sp. 
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03440 0042 

0045 OR, 

0045 ca. 

0045 ca. 

OOhf u.c. 

0006 IT 

cxx>3 

0004 sp. 

03^50 0015 P 

0012 a 

0003 

0023 B 
0011 L 
0020 2 

0007 K 

0004 sp. 

03460 0050 : 

0004 sp. 

0024 3 

0005 H 

0014 I 

0015 P 
0004 sp. 
0007 M 

03^70 0020 E 

0004 sp. 
0042 

0045 oa. 

0051 Tab. 

0045 ca. 

0000 
0004 



03500 2300 
1603 
6003 

0000 
7643 
4701 
4560 
2303 



Test Load Specific Instruction 



Error 

Variable 

Set Variables 



03510 



1700 
6002 
0000 

2700 
3310 
6002 

0000 

2713 



Test Selective Complement Specific Instruction 

Error 

Test Load Complement Specific Instruction 



irror 
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03520 1300 Test Logical Product Specific Instruction 
6002 

0000 Error 
2717 

3300 Test Add Specific Instruction 
6002 

0000 Error 
2323 

03530 3700 Test Subtract Specific Instruction 
6002 

0000 Error 
2327 

4300 Test Store Specific Instruction 
3731 
6002 
0000 Error 

035^0 473 1 *- 

1+700 Test Shift Replace Specific Instruction 

3736 

6002 

0000 Error 

04-25 Set Variable 

53^2 

0425 Test Replace Add Specific Instruction 

03550 5300 

37^5 

6002 

0000 Error 

5750 

5700 Test Replace Add One Specific Instruction 

3752 

600k 

03560 0000 Error 

5I46I Variable 

5**6l Variable 

4701 Set Variables 

U702 

2304 Test Left Shift Tiro 

0103 

4306 

03570 3706 
6003 

0U01 

0000 Error 

2312 Set Variable 

0110 

0110 

4315 
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03600 


2317 


Test Left Shift Six 




0111 






1*321 






3721 






6003 






ol*oi 






0000 


Error 




01*12 


Test Multiply by Ten 


03610 


0112 
3601* 
6001* 
ol*oi 






0000 


Error 




011*1* 


Constant 




2206 


Test Right Shift One 




Olll* 




03620 


360$ 
600$ 
Ol*01 






0000 


Error 




252$ 






12$2 


Constant 




2212 


Set Variable 




Olll* 




03630 


Olll* 
1*207 






2207 


Test Right Shift Two 




011$ 






1*205 






3603 






6001* 






0000 


Error 


0361*0 


$2$2 


Variable 




$2$2 


Variable 




$601* 


Incr. Shift Count 




6113 


Continue Shift Test 




6026 


Jump Out of Shift Test 




$2$2 


Variable 




7770 


Shift Count 




2702 


Complement Variable 


O36$0 


1*303 
1*311 
1*311 


Reset Variables 




7100 


Test Return Jump 




3663 






7121 






7101 


Jump Back to Test Righ 




3626 
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03660 oooo 
oooo 

7101 
366o 
5603 
6103 
6kok 
oooo 

03670 7101 
3700 
0507 
4325 
7101 
3650 
3677 
7117 

03700 7100 
6031 
7101 
3500 
6io4 

7777 
7101 
0100 

03710 0425 
6111 
7100 
6031 
7101 

6431 
3712 
OOOO 

03720 oooo 
oooo 
7625 
7101 
3752 
0452 
7625 
o4oo 



Error Ret* Jump 



Jump Address (Variable) (365$) 



Reset Shift Count 

Jump Back to Complement Variables 

Return Jump - Check for Mag. Tape Rewind Condition 



03730 



6416 
OOOO 
0000 
OOOO 

oooo 
oooo 

oooo 
oooo 



Return Jump - Check for Mag. Tape Rewind Condition 
Exit to Type Status for Test #1 
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037^+0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

03750 0000 
0000 
0476 
0000 

otoo 
6W-7 
0000 
0000 

03760 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

03770 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

otooo 3131 

3233 

3^35 

3637 

UoUl 

1*21+3 
kkk<? 
h6h7 

01*010 5051 

5253 

5^55 

5657 
6061 
6263 
6*65 
6667 
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0^020 7071 
72T3 
7^75 
7677 
0000 
0000 
0000 
0000 

01*030 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

ototo 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U050 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U060 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0l»070 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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04100 



04llO 



04120 



o4oo 

4225 
4226 
7100 
6031 
7500 
4102 
7600 

0120 
4216 
3614 
6l4o 
5612 
7500 
4104 
2211 

7677 
0120 
5606 
3432 
6012 
6522 
0000 
0000 



Entrance for Test #6 

Reset Comparison Data 

Reset Punch Data 

Return Jump - Check for Mag. Tape Rewind Condition 

Exf ♦ - Reader 

Input to M A W 

Clear Interrupt Lockout 
Store Reader Data 
Compare with Punch Data 
Jump forward on Error 
Incr. Data 
Exf. - Punch 

Load Punch Data 

Output 

Clear Interrupt Lockout 

Incr. Punch Data 

Check Limit 

Jump Forward at End of Block 

Jump Back to Read - Punch 

Comparison Data 

Reader Data 



04130 



04l40 



04150 



0000 
0000 
0000 
0000 

7720 
7720 

0400 

4311 

4310 
5704 
6004 
6540 

0000 
0000 

2312 
4312 

7101 
6454 
0000 

2324 
7701 
2327 
7702 
6443 



Punch Data 



Constant 

Variable Block Count 

Reset Comparison Data 

Reset Punch Data 

Incr, Block Count 

Jump Forward when Block Count 

Jump back if Block Count <57s 



Reset Block Count 



Exit to Type Test #6 Status 



Load Reader Data 

Halt 

Load Comparison Data 

Halt 

Jump Back to Resume Test #6 



- 
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04l60 



04170 



04200 



04210 



04220 



04230 



6544 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 

2200 
0000 

7615 

0400 

2303 
3620 
6005 
2216 

0000 

2310 
7700 

5712 

0277 
4314 
5616 

3614 

6006 
7100 
6031 
7101 

4200 
0000 

o4oo 
4302 

4327 

4203 
7101 

0100 

0000 
0000 
0000 
0000 



Jump Back to Resume Test #6 



Entrance for Test #1 

Comparison Data 

Half Write Indirect (ML. 1$ contains 4225) 

Clear "A" 

Load Comparison Data 

Compare Data 

Load "A" with Error Data 

Error Halt 

Load Comparison Data 

Halt 

Incr. Comparison Data 

Save Lower 6 Bits 

Incr. Test Count 
Check Test Count Limit 



Return Jump - Check for Mag. Tape Rewind Condition 

Jump back to continue H.W.I. 

H.W.I. Data 
Reset H.W.I. Data 



Reset Comparison Data 

Reset Test Count 

Jump to Continue Test #1 

Test Count 
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o424o 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

04250 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

o426o oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

04270 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

04300 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

04310 oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
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(&320 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^330 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^3^0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^350 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U360 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U370 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
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oVwo 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



o¥uo 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0^20 



Okh30 



oWo 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



OkkJO 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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okk6o 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

OkhjO 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U500 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^510 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U520 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

01*530 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
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045^0 



0^550 



04560 



0U5T0 



0h6oo 



0U610 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
7100 

6031 

7564 
7272 
0030 

0120 

2027 
3430 
6012 
2027 

0000 

2030 

7777 

7551 
7600 

0120 

3430 
6504 

2030 
1246 
6156 

2240 

3030 

4202 

7537 

7477 



Return Jump - Check for Mag. Tape Rewind Condition 



Reader Input - one frame 



Clear Interrupt Lockout 
Compare Data 



Load Error Data 

Error Stop 

Load Correct Data 

Halt 

Search for Sync. 

Clear Interrupt Lockout 



Mask Off Lower 6 Bits 

Load 71*00 

Add Punch Data 

Set M 0TN» 

Output xxOO 
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04620 0120 Clear Interrupt Lockout 

563T Incr. Frame Count 

6154 Jump to Delays 

5430 Incr. Data 

7530 Read and Punch to End of Block 
7600 

0120 Clear Interrupt Lockout 
4027 

04630 3430 Compare Data 
6012 

2027 Load Error Data 

0000 Error Stop 

2030 Load Correct Data 

7777 Halt 
7516 

76OO Search for Sync. 

04640 0120 Clear Interrupt Lockout 
3430 
6504 

7512 Punch out from M.L. 30 
7335 
0031 

0120 Clear Interrupt Lockout 
2030 

04650 3433 Check Level Limit 
6013 
6527 

7400 Constant 

4102 Exf . Reader Code 

4104 Exf. Punch Code 

0377 Spare 

7700 Mask 

04660 0000 Frame Count 

0000 Delay #2 

7627 Count for Delay #2 
0027 

0400 Reset Data to zero 
4030 

7101 ind. Jump to Type Out Test Status 
6443 

04670 7512 Output 01XX, 02XX, 03XX 
7310 
0031 

0120 Clear Interrupt Lockout 

5714 Incr. Frame Count 
6452 

7101 Ind. Jump 

5003 Variable Address (4705) (4731) (4746) 
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04700 0027 Starting Address - Read 

0030 Starting Address - Punch 

l».104 Exf . Code - Punch 

7627 Constant 

J4.73I Constant 

5724 Incr. Delay #2 
6601 

0400 Reset Delay #2 

04710 4327 

514.30 Incr. Data 
3^32 Check Limit 

6103 

0400 Set Data to Zero 

UO30 

5734 Incr. Count for Delay #2 

6002 

0^720 7106 Ind. Jump to Start of Punch - Read 

2316 Reset Count for Delay #2 
4340 

2317 Change Variable Address at M.L. U677 
4325 

7101 Ind. Jump to Start of Punch - Read 

U566 

7101 Count for Delay #3 

04730 4746 Gonstant 

5430 Incr. Data 

3^32 Check Limit 

6103 

0400 Reset Data tid Zero 

1*030 

5707 Incr. Count for Delay #3 

6002 

I 
04740 7127 Ind. Jump to Start Punch - Read 

231U Reset Count for Delay #3 

4313 

2313 Change Variable Address at M.L. U677 

4345 

7122 Ind. Jump to Start Punch - Read 

5622 Incr. Delay #U 

6501 

04750 2221 Reset Delay #4 
4217 

5430 Incr. Data 
3432 Check Limit 
6103 

0400 Reset Data to Zero. 
4030 
56l4 Incr. Count for Delay #4 
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oki6o 6002 

7106 Ind. Jump to Start Read - Punch 

2212 Reset Count for Delay #4 

4210 

2211 Change Variable Address at M.L. 4677 

7101 Ind. Jump to Start Read-Punch 
4566 

04770 6007 Delay #4 

6007 Constant 

0377 Spare 

7477 Count for Delay #h 

7477 Constant 

5003 

7007 Variable 

7007 Constant 

05000 7U27 Variable 
7327 Constant 

4677 

2301 Set Ind. Address 

4026 

5707 Delay #1 

6501 

2310 Reset Delay 

05010 4312 

5^30 Incr, Data 

3^32 Check Limit 

6103 

0400 Reset Output Data 

4030 

5716 Incr. Court for Delay #1 

6003 

05020 7107 Ind. Jump to Start of Read - Punch 
4705 

2321 Reset Count £1 
4323 

2303 Change Variable Address at M.L. 4677 
4126 

7101 Ind. Jump to 'i'tart of Read - Punch 
4566 

05030 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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050to 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05050 



05060 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05070 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05100 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05110 



0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
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05120 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

05130 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

051^0 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

05150 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

05160 oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

05170 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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05200 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05210 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05220 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05230 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



052*4-0 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05250 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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05260 



0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



05270 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05300 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05310 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05320 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05330 



0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



161:81 



053^0 



05350 



05360 



05370 



05^0 



05^10 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
7515 
7213 
6512 
0120 
7512 

7^5 
7306 
6512 

0120 
7100 

6031 
6oil 

6500 

11-220 

teio 

0000 
0000 
0000 
0000 
0000 

7521 

7217 
6700 

0120 

361^ 

6U05 
3212 

^20^ 

7512 



Entrance for Test; #5 - Type in 10 characters 

Term. Address 

Clear Interrupt Lockout 

Output 10 Characters 



Clear Interrupt Lockout 

Return Jump - Check for Mag. Tape Rewind Condition 

Jump Forward to |?lt07 
Starting Address 

Exf . Code - Typewriter Input 
Exf. Code - Typewriter Output 



Input up to Max. 127 Characters - followed by manual disconnect, 

Clear Interrupt Lockout 

Set Term. Address for Output 
Type Out 
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05420 


7445 
7306 






6500 


Variable Address 




0120 


Clear Interrupt Lockout 




7100 






6031 






6005 






6500 




05430 


4220 


Exf . Code - Typewriter Input 




4210 


Exf . Code - Typewriter Output 




0000 






2304 






4025 






7510 
7600 

0120 


Typewriter Input 






0544o 


4125 

0745 

6oo4 
5425 
6507 

4220 
5425 
4203 




05450 


7505 
7305 
6700 
0120 
6103 
4210 
6500 
7100 


Typewriter Output 


05460 


6031 
7505 
7445 
0001 






7101 
5470 
4210 


Jump to 74XX Typewriter Output 








0000 




05470 


7447 


UC 




74oi 


T 




7457 


LC 




7405 


h 




7420 


e 




74o4 


sp 




7411 


1 




7430 


a 
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05500 7^21 z 

7^25 y 

7kok sp 

7^22 d 

7^03 o 

7^13 g 

71*04 sp 

7^32 j 

05510 7^3^ u 

7*»07 m 

7^15 P 

lk2k s 

7^0^ sp 

7^03 o 

7 1 H7 v 

7^20 e 

05520 7^12 r 

Jkok sp 

7^01 t 

7^05 h 

7^20 e 

7^0^ sp 

7^35 q 

Jh^k u 

05530 Ihlk i 

lhl6 c 

7^36 k 

74ok sp 

7^23 b 

7^12 r 

7^03 o 

7^31 w 

0551*0 7^06 n 

T^o^ sp 

7^26 f 

7*4-03 o 

Jk27 x 

lhk2 . 

Ihok sp 

Ikoh sp 

05550 7^56 

ikjk 1 

7*+70 2 

lk6k 3 

7^62 h 

1U66 $ 

lhj2 6 

ikm 7 
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0556o 


7^33 


8 




7^37 


9 




7^52 


- 




7kkh 


/ 




lh5h 


1 




7kk6 


+ 




7^20 


• 




7^50 


• 

1 


055TO 


7^-0 


» 




7^02 


a 




7^5 


CR 




7^7 


uc 




7^56 


) 




fkjh 


-::- 




7^70 


a 




7^64 


# 


O56oo 


7^62 


$ 




7^66 


% 




7^72 


t 




7U60 


h 




7^33 


1 
2 




7^37 


( 




7^52 






Ikkk 


7 


05610 


lb5h 


!l 




7kk6 


O 




7kk2 


• 




7^50 


* 




7kko 


> 




Jk02 


+ 




lkk2 


• 




lk6l 


B3 


05620 


lkk2 


* 




7^51 


Tab 




7^5 


OR 




0120 


Clear Interrupt Lockout 




0U00 


Clear "A" 




7101 


Exit to Test #6 




4100 






0000 




05630 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 
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05640 



05650 



0566o 



05670 



05700 



05710 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0001 
0400 
0021 
4211 

2610 

4100 
0000 

5605 

5702 
6505 

0020 

6oo4 

0000 
0000 
0000 

7500 



Store Data in Bank 1 

Set Ind. Bank to 1 
Reset Data 
Complement Data 

Variable Address (0000 - 7776) 
Incr. Data 

Incr. Address 

Set Ind. Bank to Zero 



Sel. Mag. Tape - Binary Mode 
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05720 1171 

7500 Rewind Load 

1161 

7500 Check for Load Point 

Il4l 

7600 

0120 

07^0 

05730 6505 

6020 Load Point Jump Forward 
0000 

6*103 

2301 Change Instruction from 7500 to 61*03 

4100 

6033 

dkoo 

057^0 0601 
6501 

7500 Check for Parity Error 

1141 

7600 

0120 

0704 

6102 

05750 6035 

0400 Set Buffer Entrance 

0105 

5753 

0501 Set Buffer Exit 

0106 

5755 

7500 Write A/D 

05760 2111 

0120 Clear Interrupt Lockout 

7300 Initiate Buffer Output 

5762 

5605 Incr. Block Count 

6102 

6006 

7101 Jump 

05770 6070 

7700 Block Count 

7700 

6052 

2301 Set Jwmp Address 

1+023 

2304 Reset Block Count 

U306 
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o6ooo 



06010 



06020 



06030 



o6oko 



06050 



2024 
7020 
0000 
7774 
7774 
5701 
6lo4 
2304 

4304 

7777 
2321 

0701 
4323 
7500 
1121 
7600 

0120 
5603 
6501 
6452 
0000 
0000 
6403 
o4oo 

7101 

0000 

o4oo 
6403 
ll4i 
7600 
074o 
6510 

2307 

4020 

2314 
4310 
0601 
6501 
4024 
7101 

6100 
5100 
2301 
4023 
o4oo 
0601 
6501 
7500 



Load Data in "A" at Buffer Interrupt 
Jump to Address in ML. 20 



Reset Trial Count 



Backspace for Re -write 



Changed to 7$00 while Tape is Rewinding 

Check for Load Point 

Change Jump Address 

Change Instruction from 7500 to 6403 

Delay 

Jump to Read or Write 
Variable Address (S73U) 
Change Variable Address 

Rewind Load 
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ObOt>0 



OoGJO 



OolOG 



■-■■ollO 



)ul20 



Gol30 



llbl 
0120 
2303 
4330 
2313 
4315 
2024 
7020 

2204 

1*023 
202*1 
7020 
5734 

0000 
0000 
0000 

o4oo 

GbOl 
05OI 

o4oo 

0105 
6l04 



0105 

6107 
7500 

2131 

0120 
7200 
6ll4 
2207 
U023 

220-5 
4100 

o033 
2024 
7020 
6130 
6403 
0000 

o4oo 
6501 
7500 
il4i 
7600 
0120 
0704 
6102 



Change Instruction from 6403 to 7500 

Reset Variable Address 

Load Data 

Jump to Address in ML. 20 

Set Jump Address 

Load Data Stored at Time of Interrupt (initial data-level selection) 
Jump to Address Determined by Buffer Interrupt (initial address OOOD) 
Address 



Start Read of Mag. Tape 



Set Buffer Entrance 



Set Buffer Exit 



Read A/D 

Clear Interrupt Lockout 
Initiate Buffer Input 

Change Jump Address 



Change 7500 Instruction to 6403 



Load Data 

Jump to Address in ML. 20 

Constant 

Constant 



Check for Parity Error 
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06l4o 



6062 
c4oo 

0021 

4212 
2611 
3500 
0000 



Comparison Test 
Set. Ind. Bank to One 
Set Ind. Address 
Set Comparison Data 
Load Comparison Data 
Compare 



O0I50 



06160 



06170 



b002 
6IO6 
5703 
5603 
6507 
6007 
0000 

2310 

7777 
6507 
6410 
0000 
0020 

o4oo 
6501 
0105 

6167 
0501 
0106 
6172 
7500 
2131 

0120 
7200 



OK 

Jump to Error Stop 
Incr. Ind. Address 
Incr. Data 



Comparison Data 

Load Error Address (Data should be Complement of Address) 

Error Halt 



Set Ind. Bank to Zero 



Set Buffer Entrance 



Set Buffer Exit 



Read A/D 



Initiate Buffer Input 



06200 



6177 
5613 
6003 
2024 
7020 
2206 
4023 
2206 



Incr. Block Count 

Load Data 

Jump to Address in ML. 20 

Set Variable Address 

Reset Block Count 



0o210 



4204 
2024 
7020 
6250 
7702 
7702 
0000 
0000 



Load Data 

Jump to Address in ML* 20 

Constant 

Block Count 
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06220 



06230 



0b240 



06250 



062o0 



0o2T0 



7774 
7774 
5701 
6104 
2304 
4304 
7777 
2313 

0701 

4313 
o4oo 
0601 
6501 
7500 

1121 
7600 

0120 
0400 
6501 
7101 
6100 
0000 
0000 
0000 

o4oo 

0601 
6501 
7500 
1161 

0120 
2213 
4023 

2210 
4100 
6050 
2310 
4100 

6033 
2024 
7020 

5734 

5751 
0000 
0000 
0000 
0000 
0000 
0000 



Backspace Count 
Incr, Backspace Count 

Reset Trial Count 

Stop after 3 Trial Re-reads after Parity Error 



Backspace One Record 



Clear Interrupt Lockout 



Jump to Read Mag. Tape 



Rewind Load 



Change Jump Address 



Change Jump Address 



Change Instruction from 6403 to 7$00 



Load Data 

Jump to Address in ML. 20 

Constant 
Constant 
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06300 



06310 



06320 



06330 



o634o 



06350 



4024 
2210 
4023 
220? 
4100 

mi 

oi4i 
7101 

5700 
5734 
7700 
0000 
0000 
0000 
0000 

0071 
0060 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Start of Map. Tape Test 
Set Jump Address 

Set Block Count 



Set Buffer Bank to 1 
Junp to Write 



161:92 



06360 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

06370 0000 
0000 



0000 

0000 

0000 

7100 Return Jump - Check for Mag. Tape Rewind Condition 

6031 

7506 Type Out Test Status 



06400 7306 
6431 

0120 Clear Interrupt Lockout 
7101 Ind. Jump 

5363 Variable Address (233$) (1*200) (2036) 
4210 Exf . Code - Typewriter 
6407 Starting Address 
00U5 

06410 0047 
0001 
0020 
0024 
0001 
0004 

oo64 
ooo4 

06420 0057 

0062 Variable Character (70) (72) (74) 

0004 

0047 

0003 

0042 

OO36 

0042 

06430 0045 

0474 Entrance From Test #1 

4311 
2215 
4330 
6540 
0470 Entrance from Test #2 

4316 
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06440 



06450 



06460 



2211 
J+335 
65^5 
0462 

^323 
2205 
43^2 
6552 

2036 
2301 
5363 

4200 
0472 
4334 
2303 
4353 

6563 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Entrance from Test #4 



Address 
Address 
Address 
Address 
Entrance From Test #6 



06470 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



06500 



2562 
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NUMBER: T040 

TITLE: Buffer and Interrupt Test 

CATEGORY: 160-A, 161 
MINIMUM EQUIPMENT NEEDED: 

PURPOSE 

The buffer and interrupt test employs the typewriter on the buffer input /output 
channel to test the buffer as well as manual and buffer interrupts. 

DESCRIPTION 

The routine starts with an initial type-out, establishes an input buffer of 100 

o 

characters, then goes into a non- terminating subtract routine to keep the computer 
running while buffering takes place. Buffer input will terminate when 100q characters 
have been received by the computer or when the typewriter delivers a disconnect 
signal. 

At completion of the buffer input the computer will continue to run the non-terminating 
routine until it receives a manual interrupt. The manual interrupt causes the com- 
puter to set up a buffer output of the same characters that were received by the input 
buffer previously. Visual check of the type- out will show any errors. 

The buffer interrupt which occurs following the buffer input is ignored. 

The buffer interrupt following the buffer output causes the computer to again establish 

an input buffer of 100 fi characters and the entire routine is repeated. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0147 
CHECK SUM: 7670 

STARTING ADDRESS: 0000 

Master clear and run. After the initial type- out, IBA should appear in the status 
display. 



161:95 



OPERATING INSTRUCTIONS (Cont'd) 

The computer is now ready for the typewriter input. 

Upon termination of the buffer input IBA will disappear from the status display. 

The computer will continue to run awaiting a manual interrupt. Depress any 
selective jump switch with any selective stop switch to give a manual interrupt. 
This should cause OBA to appear in the status display and the typewriter will 
type out the same characters that were typed into the computer. 
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T 040 



T 040 BUFFER AND INTERRUPT TEST 

0000 7101 

0001 0100 Jump to program 

0002 0120 

0003 2200 
OOOii 7776 

0005 0701 

0006 6501 

0007 6404 

0010 

0011 0120 

0012 7101 

0013 0064 Jump to buffer output 
OOlij 

0015 
0016 
0017 

0020 

0021 0107 

0022 h0h3 

0023 0120 

0024 7101 (7020) Jump following 

0025 0050 buffer interrupt 
0026 

0027 

0030 2044 

0031 4024 

0032 7104 

0033 20li5 

0034 4024 

0035 7101 

0036 0002 
0037 

OOliO 1000 Buffer input starting address 

OOljl 1000 Buffer output starting address 

00lt2 1100 Buffer input terminating address 

00li3 2000 Buffer output terminating address 

0044 7020 

ooi)5 7101 

00ij6 

ooij7 
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T040 



0050 


7500 


0051 


L220 


0052 


20ijO 


0053 


0105 


oo$li 


0050 


0055 


20142 


0056 


0106 


0057 


0050 


0060 


7200 


0061 


0050 


0062 


7101 


0063 


0030 


006l 


7500 


0065 


U210 


0066 


20i|l 


0067 


0105 


0070 


006l» 


0071 


20ii3 


0072 


0106 


0073 


006U 


007k 


7300 


0075 


oo61» 


0076 


7101 


0077 


0033 


0100 


7500 


0101 


1*210 


0102 


7305 


0103 


0Ui3 


010U 


7101 


0105 


0050 


0106 




0107 


0110 


0110 


ooU5 


0111 


00ii7 


0112 


0023 


0113 


0057 


Ollh 


0020 


0115 


0013 


0116 


ooUi 


0117 


0006 



Select typewriter input 
Set up innut buffer 



Initiate input buffer 



Select typewriter output 



Initiate output buffer 

Select typewriter output 
Initial type -out 

Jump to buffer input 
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T 040 



0120 


OOOli 


0121 


0001 


0122 


0025 


0123 


0015 


012h 


0020 


0125 


0031 


0126 


0012 


0127 


OOllt 


0130 


0001 


0131 


0020 


0132 


0012 


0133 


OOOlj 


0131* 


OOllt 


0135 


0006 


0136 


0015 


0137 


003li 


OliiO 


0001 


Oliil 


Q0li5 

ool£ 


Olli2 


OllO 




oiUt 




oiii5 




01Ii6 




011*7 
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A *" 4 O /f 7~ J? *A 



If 



i/OJ O*** G~T confer STOP 
TRY *&*(/* A chttx - „ 



NUMBER: T009-F 

TITLE: Flexowriter Input, Punch and Verify Test 

CATEGORY: 160-A, 161-F 

MINIMUM EQUIPMENT NEEDED: 160-A, 161-F 

PURPOSE 

This routine accepts any ten characters on the Flexowriter keyboard. When the tenth 
character has been typed in, the Flexowriter will give a carriage return and retype 
the characters. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

CHECK SUM: 0161 

TEN CHARACTER TEST 

STARTING ADDRESS: 0300 

The center light on the Flexowriter will indicate that an input is requested. The ten 

characters that are typed in will be retyped on the Flexowriter. 

DISCONNECT TEST 

STARTING ADDRESS: 0320 

This test accepts information until an input disconnect is set. An input disconnect is 
set by the upper case key followed by the carriage return key. At this time the Flexo- 
writer will type out the same information that had been typed in prior to disconnect. 
This same information will then appear on the tape punch. The tape "off-line" will be 
verified by comparing the printed copy. 

TYPING TEST 

STARTING ADDRESS: 0350 

This test accepts information until a carriage return is typed. The same information 

is then typed on the Flexowriter. 
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T-009-F 



00300 7511 
7207 
2012 
7507 
7445 
7303 
2012 
6507 

00310 2000 
4221 
4211 
0000 
0000 
0000 
0000 
0000 

00320 7516 
7214 
2200' 
3612 
6404 
3210 
4205 
4215 

00330 7507 
7445 
7303 
2000 
6106 
2000 
4221 
4211 

00340 0000 
0000 
7504 
7304 
2000 

6525 

4210 
2000 

00350 2200 
2000 
4070 
7507 
7600 
4170 
0745 
6004 
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00360 5470 
6505 
4221 
5^70 
4204 
4212 
7504 
7304 

00370 2000 
6521 
4211 
2000 
7317 
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NUMBER: T-6MT 

TITLE: Quality Assurance Magnetic Tape Test 

CATEGORY: 160-A, 162, 163 and 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 162 or 163, or 164, 161 optional 

PURPOSE 
Comprehensive test of tape transports as well as thorough test of logic circuits. 

DESCRIPTION 

1. See flow chart. 

2. When SLJ1 is dropped, the program will complete 1 pass and do a rewind unload. 
Another tape transport may be manually selected as Unit No. 1 and the program 
re-run from P = 0000. After the second rewind unload, the reels of tape from each 
unit may be changed and checked for compatability by starting at P = 0444. 

3. SLJ4 will keep the program in the servo test. When jump 4 is dropped, the program 
will advance to the creep test. 

4. SLJ2 will keep the program in the creep test. During this test the reels should have 
a slight forward movement. Dropping jump 2 will allow the program to advance. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 1st sect. 0000 2nd sect. 7000 

TERMINAL ADDRESS: 1471 7722 

CHECKSUM: 0162 0162 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 1) SLJ1, 2 and 4 on (up). 

2) Use typewriter (161) to monitor errors. 

3) Program may be run in any available memory 
bank by manually setting the desired banks. 

HALTS EXPLANATION 

SLS 1 "A" = Error data address. 

NOTE: For operation without the use of a 161 typewriter, the operator 
should enter stops in the program at each exit from the main 
program to the typewriter program. These exits are circled 
in the program annotation. 
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Q. A. MAGNETIC TAPE TEST 




(Rewind \ 
load J 



Par. Error 



{Write A/D 
76 8 blocks 
27" 



552 pattern 
lOOOg words 



Write 77 L 
file marks 



Par. Error 



Write 10g 

blocks CC 

pattern 



Par. Error 



Write 20, 

blocks shifted 

bit pattern 



Par. Error 




Search 
forward file 
mark "W" 



Backspace 
151o records 



Par. Error 



Par. Error 



Read A/D 
CC pattern 
10„ blocks 



Compare 

data 



Read 20o 

blocks shifted 

bit pattern 



Compare 

data 



Read binary 

count 120g 

blocks BCD/ 

binary 



* T 15' T 16' T 17' T 18 ,T 19' T 20' ° r T 2 



Sense Erro: 



Search 

forward over 

file mark "W" 



I T 



Check 
illegal 
BCD 



Write, back 
pace read, and 
compare var. 
block lengths 



Force 
illegal 
BCD 



Write 
binary 
A/D 





Error 




Error 






Error 


rj. 


Par 


Error ^ 






' '30 




~* T 31 

7 




' A 32'*34 




* T 36 




Backspace \ 


jCom 
^ da 


ja re \ 


Check input \ 
disconnect J 


f Servo 
I test 


Sel. jur 


and read J 


ta ; 


\ 


) 
















, 


Yes 
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Q. A. MAGNETIC TAPE TEST 



00000 



00010 



00020 



00030 



OOC&O 



00050 



7110 
2552 

2000 
3000 
2000 
7701 
7700 
0000 

0100 

3000 



7770 

0000 

7767 
Uooo 

tol*v 

0000 
0000 
0000 
0000 
0001 
7757 
0000 

toi5 
tai*)- 

4015 

7720 
5000 
600) 

500C 
762t 

2111 

2511 
0601 
5015 
5015 
kuk 
6000 
7000 

0000 

6700 
7750 
7626. 

1101 

1076 
7C35 

7773 



Jump to 0100 Ind. 

Constant 

Variable Adr. 

Constant 

Constant 

76. Bio ok count #1 

77 File mark count 

delay count 



Variable Adr. 
Constant 
Consecutive l*s 
d>- information 
-10 Block Count 
Variable Adr. 
Constant 



or O's count 



Variable #2 

-20 Block count Var. #3 

Binary count Var. #4 

Variable 

Constant 

Constant 

Constant 

Variable #6 

Variable 

Constant 

Constant 

Backspace count Var. #8 

Constant 
Constant 

Constant Ind . Ad r. 
Variable #9 
Constant 
Constant 
Variable #10 
Constant 

Variable #11 

Constant 

P&3S count #12 

Constant 

Ind. Adr. 

Indo Adr. 

Shift count (Var) 
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00060 



00070 



00100 



00110 



00120 



00130 



0000 

7655 
0000 

753fc 
0000 
0000 
0505 
0606 

0650 
0724 

0761 
1110 
1*35 

1335 
0076 
1*65** 

aoo4 

1*002 

0576 
1*005 
0577 
1*006 

01*00 
4007 

1*011* 

1*026 

1*050 

2003 
1*011 

0507 

1*013 

0510 
1*015 

2012 
1*016 
01*01 
1*021* 
0520 
1*025 
2031 

1*027 
0550 
1*033 
2036 
1*031* 
2053 
1*037 
20W* 



Reserved for Inp. disconnect test 

Ind. address - Constant 

flg)exit 

ConVersion Jump address 

Correct data 

Data addross 

•xit for T&j 

exit for 7\2 

exit for Tifc 
exit for T18 
•xit for T21 
•xit for T26 
•xit for T31 



Random number 
Reset Var<, to 2000 
Reset - 76 Blook count 
Reset file mark count 
Reset delay 

Reset 0*^ , 
Reset binary count 
Reset Var. #11 
Reset Var. to 3000 

Reset 1% or 0% count 

Reset »10 Block count 

Reset Var. to 4000 
Reset Var. #2 
Reset -20 Blook count 
Reset Var. to 4015 

Reset Var. #6 
Reset Var. #7 
Reset backspace count 

Reset Var. #9 

162: 



OOlAO 



2035 



00150 



00160 



00170 



00200 



00210 



0527 
4052 
20M. 
klk2 
2036 

4154 
2035 
4155 
7101 
0200 
0000 
0000 
0000 

0000 

0000 
0000 

0000 
0900 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

7554 
755* 

7600 
0301 
6103 

7181 

7157 

2001 

2*102 
54©i 

3l03 
65C* 
2004 
1)002 
754© 
7536 



Reset Var. #10 to 6000 
Reset pais oount #12 
Reset instruction 
Reset Var. Start Adr. (read) 

Reset Var° Start Adr. (write) 
Jump to start test 



Sel. Odd parity 
Check for binary node 



To (T£ error seleet 

Set data to 2552 from ML 2000 to 3000 



Reset Mr. Variable 

Exf. Rewind load 
Check for load point 
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00290 7600 
0340 
6503 

5407 Prog, delay 
6501 

7532 Exf. write A/D 
7332 Output 2000 to 3000 
3000 

00230 7525 Check for Par. error write 
7600 
0204 
6003 
7101 
7013 To (Q) Par. error write 

5405 Increase Block count 
65*2 

00240 0576 Reset -76 Block count 
1*005 

7517 Exf - write file mark 
5*07 
6501 
5407 
6501 

5406 Increase file mark count 

00250 6506 

0577 Reset file mark count 

4006 

6107 

1171 Odd parity 

ll4l Status 

1161 Rewind load 

2111 Write A/D 

00260 2000 Starting Adr. write 
1111 

24l4 Load Corapl. c*- 

4111 store pattern from 3000 thru 3777 
5M1 
3412 
6012 
5413 

00270 6506 
2014 
4111 
0507 
4013 
5411 
3M2 
6515 
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00300 



00310 



00320 



00330 



003to 



00350 



0507 
1)013 

aoo3 

toil 

24lA 
koih 
7553 
7353 

1*000 

7553 
7600 
6003 
7101 
7016 
5M5 
6535 

0510 
1*015 

ao2U 

1*116 

1*1*21* 
5416 
3417 
6505 

2012 
1*016 

7527 
7330 
1(011* 

7527 
76OO 
0201* 

6003 
7101 
7021 
5425 
6512 
0520 
1*025 
51*26 

1*127 
5427 
31*32 
6501* 
01*00 
1*026 
2031 
1*027 



Reset Consecutive Us or 0* count 

Reset Var. Adr. to 3000 

Compl. <^ 

EXF - write A/D 
Output 3000 thru 3777 

Status - Check for parity error 



To (fg) Parity error write 
Increase Block count 



Reset Block count to -10 

Store one bit left shifted from 4000 thru 4013 



Reset Var. Ind. Adr. 

EXF write A/D 

Output 4000 thru 4013 

Status - Check for parity error write 



To ^3) Parity error write 



Reset Block count to -20 

Store binary count 1 to 77 from 4015 thru 4113 



Reset Variable #4 

Reset Variable Adr. to 4015 
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00360 



00370 



001*00 



004l0 



oo4ao 



00430 



6106 
2111 

3000 

4000 

1141 
0000 

7575 
7575 

7600 
0301 
6003 
7101 
7280 
7570 
7370 
4ll4 

7564 
7600 
4205 
0204 
6004 
7101 
7024 
0001 

2301 

0210 
6003 
7101 
7257 
7552 
7546 
7600 

6003 
7101 
7162 
7542 
7342 
4114 
7536 
7000 

6003 
7101 
7027 
5433 
6546 
0550 
4033 
7526 



Writ* A/D 

Starting Adr writ* 
Starting adr. write 
Status 

EXF » even parity 
Check for BCD Mode 



to (M error BCD Status 
EXF write 6 bits 
Output 4015 thru 4113 



EXF Status 

Store status response 
Check for parity error 



To (Tj) parity error write 
Response data 



Check for Illegal BCD 

To (t£) error 111. BCD 
EXF Wd parity 
Check for binary mode 



To (^7) error binary status 

Write 6 bit 

Output from 4015 thru 4113 

Check for parity error 



To (^parity error write 
Increase -50 Block count 

Reset Block count to -50 
EXF file mark "W" 
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oo44o 



001*50 



00460 



00470 



00500 



00510 



5**07 
6501 

5l»07 
6501 
7524 
7517 
7600 
07*5-0 

6503 
5407 
6505 
7516 
7216 
6000 
7506 
7600 

6020 
7101 
7073 
1172 
ll4l 
Tin 

1*015 
1171 

1161 
2131 
5000 
0000 
0000 
0000 
0000 
0000 

2102 
353 1 * 
6003 
7101 
7610 

5^02 
5434 
3435 

6510 
2004 
4002 

2036 
4034 
5405 
6543 
0576 



Rewind load 

Check for load point 



EXF - Read A/D 
Input 5000 thru 5777 

Check for parity error 



To (fg) parity error read 

BCD mode 

Status 



Starting Adr. 
Binary mode 

Rewind load 
Read A/D 
Starting Adr. 



Compare 2xxx with 5xxx 



To 



comparison error 



Reset Var. Adr. to 2000 
Reset Var. Adr. to 5000 
Incr. -76 Block count 
Reset -76 Block count 
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00520 



00530 



00540 



00550 



00560 



00570 



1*005 

7553 

5^07 
6501 

5^07 

6501 

75*7 
7600 

0720 
6503 
5*06 
6512 
0577 
UO06 
7536 
5^07 

65OI 
5W7 
6501 

7532 
7600 
0720 
6503 
5^7 

6501 

7525 
76OO 
5*>07 
65OI 
5*37 
6505 
2053 

4037 
5*07 
6501 
7514 

6000 
7507 
7600 

0204 
6010 
7101 
7076 
1131 

nil 

llffl 
2I3I 



Search forward for 77 file marks 

Check for file mark 

Incr. file mark count 
Reset file mark count 
Search forward for file mark "W" 



Check for file mark 



Backspace (151)8 records 



Reset backspace count 



Read A/D beginning atOC information 
Input from 5000 thru 5777 

Check for parity error read 



To (?iy Parity error read 
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00600 5000 

25H Compare "o*-" information (Instruction changes to 2111) 

353^ 

6003 

7101 

7621 To [Tn-o comparison error 

5411 ^&> 

5434 

00610 3^35 
6510 
2003 Reset Var. Adr. to 3000 

ton 

2036 Reset Var. Adr. to 5000 

4034 

2315 Check instruction 
3WH 

OO620 6l04 

2040 Change Instruction from 2511 to 2111 

4321 
6103 

2041 Change Instruction from 2111 to 2511 

4324 

5&15 Incr» -10 Block count 
6544 

OO63O 0510 Reset Block count to -10 
4015 

75^1 EXF - Read A/D 
7241 
5014 

15^ Check for parity error 
7600 
0204 

00640 6003 
7101 

7101 To (Tn\Par. error Read 
2U6 Compare Data 
353k 
6003 
7101 
7632 To(T^\Corap. Error 

OO650 5^3fc Incr. Ind. Adr. 
54l£ Incr. Ind. Adr. 
3*17 
65IO 

2012 Reset Ind. Addresses 
4016 
2036 
4034 
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00660 



00670 



00700 



00710 



00120 



00730 



5425 
6527 
0520 
1*025 
7511 
7511 
7600 
0301 

6010 
7101 
7223 
2131 
5000 
1172 

run 

0000 

7566 
7266 
511U 

7565 
7600 
0201* 
6003 
7101 

7l04 

7557 
7600 
0210 
6003 
7101 
7262 
2127 

3543 
6003 
7101 
7643 
5443 
5427 
3445 
6510 

201*4 
4o43 

2031 
4027 
7535 
7533 
76OO 
0201 



Incr. Block count 
Reset -20 Block count 

Select BCD Mode 
Check for BCD Mode 



To 



Error BCD Status 



EXF - Read 6 bit 



Check for parity error 



ToffVAPar. Error Read 
ChedTTor 111. BCD 



To (TjA Error 111. BCD 



Compare Data 



To (Tig) Comp. Error 
Incr. Ind. Addresses 

Check 4114 limit 



Reset Ind. Addresses 



Select Bin. Mode 
Check for Bin. Moda 
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00740 



00750 



00760 



00770 



01000 



01010 



6003 
7101 
7165 
7523 
7223 
5114 
7522 
7600 

0204 
6003 
7101 
7107 
2143 
3527 
6003 
7101 

7654 
5443 
5427 
3445 
6510 
6007 
1131 
5015 

1141 
1171 
0000 
0000 
2044 
4043 
2031 
4027 

5433 
6003 
7101 
0664 
0550 
4033 
2050 
3077 

4050 
4146 
5446 
3447 
6506 
0400 
4050 
2035 



To ( f^a) Efpar Bin Status 
EXT^Tleau 6 bit 



Check for parity error 



ToQT^mpar. error read 
Compare Data 



To (fTTSComp . Error 
IncrTnLnd. Addresses 

Check limit 4114 



Reset Ind. Addresses 

Incr. Block count 
Loop back on test 
Reset Block count 
Store Number Pattern from 6000 through 6777 



Reset Variable #11 
Reset Ind. Adr. 
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01020 4046 

7557 Space over file mark "W" 

5407 

6501 

5407 

6501 

7545 Select BCD Mode 

7545 Check for BCD Mode 

01030 7600 
0201 
6103 
7101 

7226 To (tT^ Error BCD Status 
7540 WriC^A/D 
7340 
7000 

01040 7534 Check for parity error 
7600 
0204 
6003 

7032 To ^23) par. error write 
7526 Checlc for 111. BCD 
7600 

01050 0210 
6003 
7101 

7265 To (^4) error 111. BCD 
7523 Backspace 1 record 
7600 Delay for backspace 
0600 
0103 

01060 0701 
6501 

7516 EXF - READ A/D 
7216 

6000 Term. Address 
7507 Check for Parity Error 
7600 
0204 

01070 6013 
7101 

7112 To @25)par. error read 
1172 EXF^Codes 
1141 
2111 
6000 
1121 
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01100 2131 
5000 
1131 

2134 Compare Data 
3546 
6003 

7101 _.^ 
7665 To^26)C»mp. Error 

OHIO 5434 Incr. Ind. Addresses 
5446 
3447 
6510 

2316 Shorten Block length by (0010) 8 
3217 
4320 
2036 Reset Var. Adr. 

01120 4034 
2035 
4046 

2322 Shorten Block length by (0010) R 
3210 S 

4324 

3435 Check Limit 
6006 

01130 0600 
0600 
7101 
1026 
0010 

2035 Reset Bleck lengths to (1000) 8 
4340 
4046 

01140 2036 
4340 
4034 

7511 KXF - Write 6 bit 
7311 Write 111. BCD 
1162 

7510 Check for 111. BCD 
7600 

01150 0715 
6013 
7101 

7333 To §27) Error 111. BCD not detected 
1111 ^-^ 
1157 
1141 
0077 
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01160 



01170 



01200 



01210 



01220 



01230 



0000 
0010 
0000 
0000 
7560 
7560 
7600 
6003 

7101 
7170 
7556 
7354 
3000 
7550 
7600 
0204 

6003 
7101 
7035 
5407 
6501 
7541 
7600 
5407 

6501 
0525 
4135 
7536 
7236 
6500 
4060 
0600 

0600 
0600 
7523 
7600 
0204 
6003 
7101 
7115 

2134 
3401 
6003 
7101 
7666 
5434 
3435 
6507 



Select Bin Mode 
Check for bin mode 



To (TjgS Error Bin Status 
EXF^TJrite A/D 



Check for Par. Error 



To^aJPar. Error Write 
Backspace 1 record 

Condition Disconnect Adr. 
Check Input Disconnect 

Store Term. +1 
Check for Par. Error 



To tt 3( J} Par . Error Read 
Compare Data 



To tto^\ Comp . Error 
IncrT^End. Adr. 
Check Limit 
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OlZkO 



01250 



01260 



012TO 



01300 



01310 



2134 
6012 
7101 
7320 

111 

1141 
1T2 T 
2000 

ym 

2131 
5000 
2036 
k03k 
7101 
1335 
0600 

7551 
5*07 
6501 

7545 
7600 
0320 
6503 

75^a 

5*07 
6501 
7536 
76OO 
0320 
6503 
5W6 
6510 

0577 
1»006 
7530 
7525 
7600 
03J»0 
6503 
7101 

7710 
7710 
0200 
7520 

751* 

7600 
03te 
6503 



Check for sero's stored at disconneot 



To(T->2^ Error Inp. disconnect 



Reset Var. Adr. 

Jump to continue Input disconnect check 

Backspace 1 file mark 
Check for file mark 

Backspace 77g file »arks 



Reset file mark count 

Rewind load 

Check for load point 



To (J33) type pass count 
Optional Jump 

Rewind unload 
Check for not ready 
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01320 



01330 



01340 



01350 



01360 



01370 



0600 
0600 
7101 
7367 
7777 
7101 
0444 
1171 

1141 
1121 
1161 
1151 
0000 
2060 
0701 
3435 

6103 
7101 
1400 
7101 
7323 
7101 
1260 
0271 

7110 
2552 
2000 
3000 
2000 
0000 
0000 
2102 

4103 
5403 
5402 
3404 
6505 
2315 
4000 
2316 

4001 
2317 
4002 
2320 
4003 
2321 
4004 
7020 



To (T^cl type out reel change 
Jump to beginning of read 



Check input disconnect 
Check terminal 

Jump to servo test 

Jump to (T3M error Inp. Disc 

Jump to continue program 
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01400 



01410 



01420 



01430 



01440 



01450 



0507 


Set loop count 


4221 




0507 


Set block count 


4206 




7540 


Sel . odd parity 


7540 


Write - A/D 


7335 




7000 




5600 


Incr. Block count 


0000 




6505 




0507 


Reset block count 


4303 




7531 


Backspace 


7600 




5706 


Incr. Backspace count 


6503 




5600 


Incr. loop count 


0000 




7145 




7521 


Write - A/D 


7316 




3000 




7520 


Status 


7600 




0204 




6003 




7101 
7040 


Jump to^J 


7511 


Backspace 


7600 




7720 


Sel . jump 2 for creep t 


1424 




7101 


Continue test 


1260 




2000 


Starting Adr. 


1171 


Odd parity 


2111 


Write 


2121 


Backspace 


1141 


Status 


0501 


Shorten backspace count 


5336 




0501 


Shorten block count 


5351 




3600 


Check limit 


0500 




6554 




2200 


Reset instructions 
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01460 0507 
4357 
4347 

7740 Sel. Jump 4 (up keeps program in servo test) 
1400 

7101 Jump to creep test 
1424 
0000 

01470 1450 
5077 
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L l 



07000 7555 EXF - Type 
7445 CR 
7415 P 
7442 

7420 E 
7442 

7431 W 
7442 

07010 7445 CR 
7101 

0236 Var. Address 
2233 Ent. for T, 
4302 
6515 

2231 Ent. for T 2 
4305 

07020 6520 

2227 Ent. for T 3 

4310 

6523 

2225 Ent. for T 5 

4313 

6526 

2223 Ent. for T g 

07030 4316 
6531 

2221 Ent. for T 
4321 
6534 

2217 Ent. for T29 
4324 
6537 

07040 2217 T, fi 
4327 36 
6542 
0000 
0000 
0000 

0236 Ret. for T^ 
0316 Ret. for T 2 

07050 0343 Ret. for T3 

0410 Ret. for T5 

0433 Ret. for T 8 

1046 Ret. for T23 

1203 Ret. for T 29 

4210 EXF - Code 

0000 Spare 
1435 



23 
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07060 



07070 



07100 



07110 



07120 



07130 



7555 


EXP 


- Type 


7445 


CR 




7415 


P 




7442 


• 




7420 


E 




7442 


• 




7412 


R 




7442 


• 




7445 


CR 




7101 






0500 


V«r. 


address 


2233 


Ent. 


for T9 


4302 






6515 






2231 


Ent. 


for T n 


4305 






6520 






2227 


Ent. 


for T 13 


4310 




6523 






2225 


Ent. 


for T16 


4313 






6526 






2223 


Ent. 


for T 20 


4316 






6531 






2221 


Ent. 


for T25 


4321 






6534 






2217 


Ent. 


for T 30 


4324 




6537 






0000 


Spares 


0000 






0000 






0000 






0000 






0000 






0500 


Ret. 


for T q 
for Tfj 


0601 


Ret. 


0643 


Ret. 


for T 13 


0711 


Ret. 


for Ti6 


0754 


Ret. 


for T20 


1103 


Ret. 


for T 2 5 


1230 


Ret. 


for T 30 


4210 


EXF • 


• Code 


0000 


Spare 


0000 


Spare 
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071A0 



07150 



07160 



07170 



07800 



07210 



7540 


BXF 


- Type 


7445 


CR 




7420 


E 




7442 







7424 


S 




7420 


S 




74ll 


L 




74o4 


SP 




7423 
74l4 


B 

1 




7406 


N 




7442 


• 




7445 


GR 




7101 






0207 


^ar. 


Address 


2215 


Ent. 


for T Q 


4302 






6521 






2213 


Ent. 


for T7 


4305 




I 


652^ 






2211 


Ent. 


for Tig 


4310 




**7 


6527 






2207 


Ent. 


for Tog 


4313 




fcw 


6532 






4210 


BXF 


- Code 


0207 


Rat. 


for T 


0423 


Ret. 


for T7 


0743 


Rat. 


for T19 


U72 


Rat. 


for T 2 8 


4210 


EXF 


- Code 


7533 
7445 


EXF 
CK 


- Type 


7420 


E- 




7442 







7424 


S 




7420 


E 




7411 


L 




7404 


SP 




7423 


B 




7416 


C 




7422 







7442 


• 




7445 


CR 




71W 






0375 


Varc 


Address 
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07220 2211 Ent. for l k 

U302 

6521 

2207 Ent. for T15 

H305 

6524 

2203 grit, for T 22 
43IO " 

O723O 6527 

0375 Ret. for Tk 

O7OO Ret. for T^ 

1035 Ret. for To? 

1*210 gxF - Code 

0000 

0000 

0000 

0721*0 7533 EXF - Type 

7&5 CR "^ 

7**20 E 
7W*2 

74lfc I 

TMl L 

7*11 L 
7W»2 

07250 7*23 B 

7*16 C 

7*22 D 
7U2 

7**5 cr 
7101 

0)0.5 Var. Address 

2211 Bnt. for Tg 

07260 U302 
6521 

28(17 Ent. for T,„ 

2205 Ent. for T?/. 

6527 

072T0 0*15 Retc for T 6 

0717 Ret. for T 17 

105* Ret. for iJL 

**1° EXF - Code 
0000 

0000 

0000 
0000 
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07300 



07310 



07320 



07330 



crnho 



07350 



7530 
7^5 


EXF - Type 
CR 


7Uao 


E 


7*42 


• 


iklk 


I 


7*06 


N 


7*H5 


P 


7kh2 


e 


jk22 


D 


7kXk 


1 


7*2* 


S 


7kl6 


c 


7kki 


e 


7^5 


CR 


7101 




1253 


Var. Address 


2206 


Ent. for T- 9 


4302 


>2 


6522 




220fc 
»»305 


Ent. for T34 


6525 




1253 


Ret. for T32 
Ret. for T34 


13*5 


1+210 


EXF - Code 


0000 


Spare 


0000 


Spare 


7$S 
7*1* 


Ent. for T 27 
CR 

I 


7kLl 


L 


7*11 


L 


lMh% 


e 


7*23 


B 


7%16 


C 


7te2 


D 


7W2 


• 


7l«06 


N 


7h03 





7^01 


T 


jk(* 


SP 


7^22 


D 


7*20 


E 


7*01 


T 


7^20 


E 


7416 


C 


7*»01 


T 


7^20 


E 
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07360 7*22 D 

7**5 CR 
7101 

llgl* Exit for T 2? 

1*210 EXT -Code 

0000 Spare 

0000 Spare 

7520 £XF - Type Ent. for T^ 

07370 7**5 CR 

71*16 C 

7*05 H 

7*30 A 

7*06 N 

7413 G 

7*20 E 

jkok SP 

07*00 7*42 R 

7*20 E 

7*20 E 

7*11 L 

7**5 CR 
7101 

132* Exit for T35 

*210 EXF - Code 

07*10 757* 

7**5 CR 

7*16 c 

7*03 

7*07 M 

7*15 P 
7K*2 

7**5 CR 

07*20 7*16 C 

7*03 

7*12 R 

7*12 R 

7*20 E 

7*16 C 

7*31 T 

7*0* SP 

07*30 O5O* Set Shift Count 

*057 

Uk6k Shift correct Data 

**6* 

**6* 

0207 Save lower 3 bits 

6103 Conversion 

0*56 Zero 
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07440 



07450 



6132 
0701 
6103 
0474 
612S 
0701 
6103 
0V70 

6122 
0701 
6103 
0464 
6116 
0701 
6103 
0462 



one 



two 



three 



four 



07460 



6112 

0701 

6103 

0466 five 

6106 

070I 

6103 

0472 six 



07470 



6102 
0460 
0600 
0600 



O75OO 



7506 
TWO 

5^57 
6007 
7KXL 
7432 
4210 
7*00 
0000 
0000 



seven 

spare 
spare 



7^xx 



Incr. shift count 



back to oonversion 

EXF - Code 

Constant 

spare 

spare 



07530 



0504 Reset Shift Count 

4057 

7564 EXF . Type 

7445 CR 

7420 e 

7412 r 

7412 r 

7403 o 
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075» 



07530 



0754Q 



07550 



07560 



07570 



7412 


r 


ruck 


SP 


7404 


SP 


7404 


SP 


W[6 


Shift error data 


4476 




4476 




0207 


Save lower 3 bits 


6103 




0456 


Zero 


6132 




0701 




6103 




0474 


one 


6126 




0701 




6103 




0470 


two 


6122 




0701 




6103 




0464 


three 


6116 




0701 




6103 




0462 


four 


6112 




0701 




6103 




0466 


five 


6106 




0701 




6103 




0472 


six 


6102 




0460 


seven 


0600 


spare 


0600 


spare 


3211 




4202 




7506 


EXT - Type 


7400 


74xx 


5*57 


Inor. shift count 


6005 




7101 




7524 




4210 


EXF - Code 


7400 


Constant 
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07600 



07610 



07620 



07630 



07640 



07650 



2065 


Load Data Address 


7701 


Sel. Stop 


7062 
0000 


Exit(g) 


0000 




0000 




7101 


Jump to Conversion 


7410 




2102 


Knt. for T 10 


4064 


2002 


Load Address 


4065 




2134 
4076 
2066 


Load (Ind.) error data 


Set exit 


4062 




6512 




2111 


Ent. for T12 


4064 




2011 




4065 




2134 


Load (Ind.)error data 


4076 




2067 


Set exit 


4062 




6523 




2116 


Ent. for Ti/+ 


4064 




2016 




4065 




2134 




4076 




2070 




4062 




6534 




2127 


Ent. for Ti8 


4064 




2027 




4065 




2143 




4076 




2071 




4062 




6545 




2127 


Ent. for T21 


4064 




2027 




4065 
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07660 2143 
4076 
2072 
4062 
6556 

2146 Bnto for T26 
4064 
2046 

07670 4065 
2134 
4076 
2073 
4062 
6567 

2001 Ent. for T31 
4064 

07700 2034 
4065 
2134 
4076 
2074 
4062 

65U 
0000 

07710 7511 Ent. for "Pass" Type 
7445 

7415 
7430 
7424 
7424 
7445 
7101 

07720 1311 
4210 
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NUMBER: TO 71 

TITLE: Magnetic Tape Test 

CATEGORY: 160-A and/or 162, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A and/or 162, 163, 164 

PURPOSE 

This test is a six bit test of the tape handler that uses a bit by bit comparison. 

DESCRIPTION 

1. See flow chart. 

2. The sequence of numbers written are of a random sort being generated by starting 
with 0000 in the first address and octal 0011 being added to the contents of each 
sequential address for 1777 octal address. 

3. The initial block written is 10„ words in length and each following block is increased 

by 10 „ words with a filemark being written after each 10„ blocks. The maximum 

number of blocks that can be written is 200 o . 

o 

OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 


Paper Tape 


LOADING ADDRESS: 


0000 In P register 


TERMINAL ADDRESS: 


0445 


CHECK SUM: 


4037 


STARTING ADDRESS: 


0000 



ADDITIONAL INSTRUCTIONS: 



1) Tape units at load point. 

2) Select switches in sequential order. 

3) Binary/Coded switch in binary position. 

4) SLS switches 1, 2 and 3 in up position. 

5) Place in A number of units to be operated. 

6) Run. 



RESTART ADDRESS: 0200 in P 



1) After parity error 

2) Clear computer 

3) Manually load 0000 into locations 0005 and 0006 



162:31 



RESTART ADDRESS: 0000 in P 1) After compare error 

2) Clear computer 

HALTS EXPLANATION 

In the event a parity error occurs the test will rewrite or reread, in 
either case, three times and then halt. If a rewrite or reread is 
successful before three operations the test will continue its normal 
sequence. 

7701 Parity error on write 

7702 Parity error on read 

7703 Comparison error 

7705 Parity on write non-stop 
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PROGRAM FLOW CHART 



0007 - Number of Units 

0013 - Number of Blocks Maximum 200 

OOllj - Number of filemarks counter 

0015 - Number of filemarks constant 

0016 - Status for Write 

0017 - Status for Read 

0021 - Address for Compare error - write 

0022 - Address for Compare error - read 

0023 -N 

Constant Storage 

0053 J 
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CO 

00 



Start 



0100-0147 



Regenerate 



0200-0205 



Write 



0206-0207 



0210 



Status 



Store 
Status 



0211 



< 



Zero 



> 



Yes 



No 



v 0170 



Add "1' 



0171 



Sub "3" 



0172 



-f Zero \ 



Yes 



Backspace 
0212 



Halt 
"* 7701 





0212-0213 




0214-0221 




0222-0223 




0224 




0225 


, Yes 
» Yes 






Backspace 


Read 




Status 




Store 
Status 


, / 








Zero 


Compare 










No 


*( 


* 0226 


















No 
,0174 




























' 










Add "1" 








,,0175 








Sub "3" 








,,0176 






i Zero 


Halt 




















* 7702 



0226-0230 



Compare 



0231 



-*C Zero J 



yes 



Number of Blocks 



0232-0234 



Add 1 



I Halt 
7703 



0235| no 
Terminate^ 
Address 



0263-0267 



Restore 
Address 



0237-0241 



Check 
Units 



■c 



0242 



Zero 



> 



yes 



Write 
0200 



0243-0247 



Change 
Units 



0250-0257 



Restore 

Unit 
Selects 



Block 
-> Count 
0300 



Block 


0300 




Count 


Add "1" 









CO 



0301 



Sub "10' 



0302 



( Zero \ 



yes 



0315 



Write 

Filemark 




I Jump 



0306 



0307 



Add "1" 



Sub "A" 



< 



0310 



0311 



Zero 



> 



yes 



Load and 

Restore 

0000 



0360-0367 



Increase 
10o Words 



Block 



0316-0320 



Check 
Units 



■c 



0321 



0322 



Zero 



0324-0325 



Restore 

Unit 
Select 



> 



Change 
Units 



yes 



-» Search filemark 
0327 



0370-0376 



Restore 
Addresses 



Write 
-» 0200 




0323 











0330-0332 








no 


0341 






0327 




0334-0335 




0336-0340 


0344-0350 






Search 
Filemark 




Sub "1" 
from ctr. 




Store ctr. 


y " rT -n \v es > 


Restore 
Ctr. 




Check 
Units 


jC ~ rrn ^\yes 


Restore 
Unit "1" 


















no 




















0342-0343 






















Change 
Units 

































05 
CO 

W 




0403-0405 


















0412 












no 


o> 






0406-0407 


0410 


0411 


0413 


0414 






Write 
Non-Stop 




Status 




Store 
Status 


y " i - ^ yes a 


Add 1" 




Sub. "A" 




•at 7 c 


ro 




— * 
















no 






yes 
































i »Halt 7705 




























0415 




0416-1420 


0421 












Rewind 


Check 
Unit 


Change 
Unit Sel. 








/■ -s no 
















Regenerate 
0100 










yes 






























Restore 
Unit 

















































TAPE TEST »X" UNITS 

Place number of units in W A" register 



0000 
0001 
0002 

0003 
oool* 
0005 

0006 
0007 



6i)2 >~ SaJT-/?^ J" 

U007 • Store Number of Units 

KXT\ Starting Address 

Number of Times Rewrite 
Number of Times Reread 



— Run 




0010 
0011 
0012 
0013 
0011* 

0015 

0016 
0017 



0000 
0000 
0000 
0200 
0020 
0020 
0000 
0000 



Number of Blocks 
Search Filemarks Counter 
Search Filemarks Constant 
Store Status Wrote 
Store Status Read 



0020 
0021 
0022 
0023 
002k 
0025 
0026 
0027 

0030 
0031 
0032 
0033 
0031* 
0035 
0036 
0037 

001*0 

001*1 

001*2 
OOltf 

ool*l* 
001*5 
001*6 
001*7 

0050 
0051 
0052 

0053 
0051* 
0055 
0056 

0057 



0000 
2000" 
1*000 
2010 

1*010 

2010 
1*010 
2000 

1*000 

1111 

1121 

1131 
111*1 
1161 

0000 

0000 

0270 
0271 
0272 
0273 
0202 
0216 
01*01 
01*02 

01*1*3 
01*1*1* 
3777 

ol*i*5 

0000" 
0000 
0000 
0000 



Output address 
Input address 



comparison error 



2111 
2121 
2131 
211*1 
2161 



Change for A/D 
Change for A/D 
Change for A/D 
Change for A/D 
Change for A/D 



CONSTANTS 



162:37 



0060 


0000 




0061 


0000 


0062 


0000 


0063 


0000 


0061+ 


0000 


0065 


0000 


0066 


0000 


0067 


0000 


0070 


0000 


0071 


0000 


0072 


0000 


0073 


0000 


00714 


0000 


0075 


0000 


0076 


0000 


0077 


0000 


!//c 


0100 


01*00 P'hAA 


0101 


1*010 ^1 


0102 


1*011 *- 1 




0103 


1*012 — 




oiol* 


l*0l6~ 




0105 


1*017^ 




0106 


1*020 Z^^ 


0107 


2(J2$ f^- 


0110 


1*023 - 


0111 


1*1U* ' 


0112 


2026- 


0113 


1*021*- 


0111* 


1*11*5- 


0115 


2027- 


0116 


1*021 ~ 


0117 


2020 _ 


0120 


1*121 - 


0121 


2021 


0122 


3750- 


0123 


6006*^ 


0121* 


2020. 


0125 


0611, 


0126 


1*020, 


0127 


51*21* 


0130 


6511- 


0131 


2027-*— 


0132 


1*021— 


0133 


2030- 


0131* 


1*022— 


0135 


2031- 


0136 


l*:.i*o^ 


0137 


2032 





o 



2.0 to 



-^z*3£> <2<^^ > 



Initialise Test 
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011*0 litkl Initilization 

011*1 2033 (Continued) 

011*2 1*11*2 

011*3 203U 

011*1* 10-U3 

011*5 01*00 

011*6 7101"^ 

011*7 0200--* 



01$0 2205 

0151 0701 

0152 6501 

0153 7101 Delay Write 

015U 0206 

0155 7000 

0156 0000 

0157 0000 



0160 2205 - ~ 

0161 0701 

0162 6501 

0163 7101 Delay Read 

0161* 0222 

0165 7000 

0166 0000 

0167 0000 

0170 51*05 

0171 0703 Rewrite Parity 

0172 6106 

0173 770 1 Write Parity Stop 

0171* $U06 

0175 0703 Reread Parity 

0176 6111* 

0177 7702 Read Parity Stop 



0200 Jl$b ~* _~X^ 

0201 .__S^_, 

0202 2010-^ -w_*«*» -> ^ ao 7 

0203 7101 
0201* 0150 

0205 2000- Write 

0206 7565 Write Status Select 

0207 7600 

0210 1*016 

0211 6521 

0212 7557 Backspace 

0213 7600 

0211* 7556 

0215 7201* 

0216 1*010 Read 

0217 7101 
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0220 0160 

0221 4000 , _ _, 

0222 7551 Read Status Select Read (continued) 

0223 7600 

0224 4017 

0225 653 1 __ — 

0226 2121 

022? 02T7 0600 . 

Change for A/D 

0230 3522 

0231 6l46 

0232 5421 

0233 5422 COMPARE 

0234 3716 

0235 6507 

0236 6025 

0237 2231 

0240 0207 

0241 3^7 

0242 6OO6 

02^3 5625 Change unit 

0244 5625 select 

0245 5625 

0246 5625 

02 Vr 65^7 



0250 2031 

0251 4l40 

0252 2032 

0253 4l4l Restore Unit 

0254 2033 Select Codes 

0255 4l42 

0256 2034 

0257 4l43 

0260 o4oo 

0261 7101 

0262 0300 



0263 2027 Restore 

0264 4021 Compare 

0265 2030 Addresses 

0266 4022 ,; ' 

0267 6530 \fy 

0270 3411 

0271 1121 

0272 1131 

0273 11^1 

0274 0000 

0275 0000 

0276 0000 

0277 7703 Compare Stop 
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0300 5Uo ~ 

0301 0710 

0302 610J4 

0303 ol*oo 

030U 1*010 BL0CK 

0305 6010 C0UNT 

0306 51*11 

0307 31*13 

0310 6150 

0311 01*00 

0312 1*011 

0313 01*00 

0311* 6013 



0315 7561a Write File Mark 

03 16 2263 

0317 0207 
0320 31+07 

SS 59S 3 Change Unit Select 

0322 5657 

0323 6506 



°32i* 2031 Restore Unit 

0325 1*11*6 Select Code 

0326 6520 . 

0327 7553 " " — 



0330 2011* SEARCH 

0331 0701 

0332 JjOlii 

0333 6501; 

0331* 2015 ~~— " 

0335 1*011* Filema rk 

0336 221^1* 

0337 0207 

°3J»° 31*07 Change Unit 

031*1 6003 SELECT 

031*2 561*0 

031*3 6511* 

03f*l* 2032 Restore Unit Select 

W 1*11*7 Code 

031*6 01*00 

031*7 1*020 

0350 7101 

0351 01*03 

0352 0000 

0353 0000 

0351* 0000 

0355 0000 

0356 0000 

0357 0000 
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0360 2023 " " ~ ~ 

0361 0610 

0362 4023 

0363 4l44 

0364 2024 Generate 

0365 0610 Block 

0366 4024 Length 

0367 4145 



0370 2027 

0371 4021 

0372 2030 Restore Compare 

0373 4022 And Parity Counters 

0374 0400 

0375 4005 

0376 4006 

0377 7101 



0400 0200 

0401 mi Write F.M. Select Code 

0402 1121 Search F.M. Select Code 

0403 7540 

0404 7335 

0405 2100 

0406 7537 Non-Stop Status Select WRITE NON-STOP 

0407 7600 

0410 4016 

0411 6131 

0412 5420 

0413 3413 

0414 6511 

0415 7527 REWIND 

0416 2225 
o4i' T 0207 

0420 3407 

0421 6007 CHANGE UNIT 

0422 562I SELECT 

0423 5621 

0424 5621 

0425 0400 

0426 4020 

0427 642 4 

0430 2031 

0431 4150 

0432 2035 

0433 4151 

0434 2034 RESTORE UNIT 

0435 4153 SELECT CODE 

0436 0400 

0437 Tioi 
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oUi+o 0100 

Ohhl 2000 

0UU2 7705 Stop On Status 

0kk3 1111 

okkk 1161 

0UU5 ilia 
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NUMBER: T630 

TITLE: Binary-Coded Magnetic Tape Test 

CATEGORY: 160-A, 162, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 162 or 163 or 164 

PURPOSE 

This program provides a comprehensive test of Magnetic Tape units. The program 
cannot be used on 606 type transports in high density. 

DESCRIPTION 

1. See flow chart. 

2. This program writes information in both coded and binary format, varying the 
information and the block length. After each block is written the tape is back- 
spaced and the block is read and compared in the computer. 

3. The block length is increased for the first 200„ blocks, decreased for the next 
200g blocks and then increased for 200 g more blocks. This results in a total of 
600 blocks written on tape. Every 10„ blocks there is a file mark written on 
tape for a total of 60g file marks. After writing 600„ blocks, units are searched 
back for the number of file marks written. Next, each unit writes non-stop 400_ 
blocks; rewinds and starts complete test over. 

4. Parity is checked on both Read and Write and if an error occurs the unit with the 
error will try three times to correct itself and then halt. One error in non-stop 
will give a halt. Complete test is in A/D or 12 bit format. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 
Paper Tape 

0000 

0777 

6727 

0000 



ADDITIONAL INSTRUCTIONS: 



1. Enter in 0013 number of blocks to be written. 

2. Place in A the number of units to be run. 

3. Run. 
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HALTS 



EXPLANATION 



7701* 
7702* 
7703* 
7704* 
7705* 
7706* 



7707 



Parity error in binary on write 

Parity error in binary on read 

Comparison error binary 

Parity error in coded on write 

Parity error in coded on read 

Comparison error in coded 

* Running again without clearing will rewrite the block with the 

error and continue the program 
Parity error in non-stop 

If halt is 7703 or 7706 the word which does not compare may be 
found in the following manner: 

1. Address 0020 contains the address of the valid word written. 

2. Address 0021 contains the address of the invalid word read 
back to the computer. 

3. Address 0022 contains the terminating address of the block 
written during failure. 

4. Address 0023 contains the terminating address of the area 
read into during failure. 
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0000 - 0001 



0100 * 0112 




Restore initial 
select codes & 
term, addresses 



Generate i write 
word pattern 
2000 -3777 



Condition pro- 
__J gram to 

increase blk by 
10 g wds each pass 



Jump 
to 0240 



-0 



Jump to 0244 



0240 * 0243 



Binary (\\_ 
Test \J_y 



Restore int. 

starting 
address 
read and write 




AM 



Load "A' 
status 




Jump to 02 44 
Rewrite 



rite J 



0346 



Try to 
re-read 
3 times 



>i 



AOD to 
0007 



A^0 



0261 -0263 0264 -0265 



Back- 
space 



Read 
1 blk 
unit X 



Status 
unit X 



Store 
status 

at 0017 



Hfe 



reply 



Compare each word of 
present blk length 
written against each 
word read back. 



Jump - 024 
HALT ) *( Rewrite 

0353 




0304 -0313 



A i 



0277 



Does word 
compare 




Has compare 

term, for 

present blk 

length 



No 





0300 - 0302 


Ves 
yA = 


Determine if 
there are 
other units 
to be used 



Restore 
initial 
select codes 



0314-0315 



Jump 0400 



Coded Test 



0316 -0321 



A*0 



Replace 
AOD+ 1 to 
select code 



-O 



Back to 0240 to 
repeat on next unit 



A t 
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0470-0471 



Coded 

Test 



0400 
2 



0400 -0403 



Restore int. 
starting 
address 
read- write 



0404-0406 



Restore 
06 -07 
to zero 



/MAG 
\TAPE 



Change 
unit X 
coded 



Back- 
space 



Load "A" 
with status 




Jump to 0404 



/ Try to \ 

c 1 re-write U— 

Ai io\3times/ 



SUB 3 



AOD + 1 
to 0000 



0410-0412 0413-0414 



Write 
1 blk 
unit X 



Status 
unit X 



0415 

H Store 
status — » 
at 0016 



Mask 
out 01 
coded 



A 1 
0417 



Is there 
a reply 



Load "A" 
status 




J ump 0404 
HALT Y-M Rewr 



ite J 



0513-0514 



J2510 



0422-0421 



Back- 
space 



Read 
1 blk 
unit X 



Try to 
re-read 

3 times 



0425-0426 



0507 








SUB 3 


AOD+ 1 
to 0007 


0430 


0427 


A j*0 
0431 



Status 
unit X 



Store 
status 
at 0017 





0432 - 0441 



A)0 



Compare each word of 
present blk length 
written against each 
word read back 



< 



Jump - 0400 
Rewrite } 



0435 



0441 



Does word 
compare 




'a = o 



Has compare 
term, for 
present blk 
length 



lYes 



No 



0442 - 0444 



Determine if 

there are other 

units to be 

used 



0445 
Decision 



0460-0463 0464 



AOD +1 

to select 

codes 



No 



A t 



Back to 0400 
to repeat on 
next unit 



0543-0544 



0545 



0551 



0446-0455 0456-0457 



0540 



Restore 

int. sel. 

codes 



Jump 

HH to 0540 



AOD+ 1 
to 0010 



0541 



SUB 10 



Restore 
0010 — zero 



Write 
file mark 



Are other 
units to 
be used 



K_ . . \No 
Decision 



0612 -0613 



I Replace add 
+1 to F. M. 
select code 



Restore 

initial 

FM code 



Store § FM - 
written at 
0014 



Yes 

A t 



Have 10 8 
blks been 
written 



0576 -0607 



AOD+1 
to 0011 



SUB 
200o 



A^O 



/Ha 

-M bll 

\_w 



Have 200 8 

blks been 

ritten 



Aj!0 



Jump 
to 0576 



Increase ter- 

^ minating address 

read and write 

l'y 1Q B 



0610 .■ 0611 



Jump 
to 0240 







Repeat test to here 
with new blk length 
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0570-0573 



M 



0563 - 0564 



AOD+1 /Have600 8 V*0 
tn nm 2 -*t blks been i ' 



\ written 



Restore 

0010-0011 
to zero 



Condition to de- 
crease by 10ft 
word on 2nd 200g 
blks -* & increase 
on 3rd 200 fl blks 



Jump 
to 0240 



-© 



Repeat test to 
this point 



AOD+1 to 
F. M. code 



0614 
Load "A" # of 
F.M. written 
from 0014 



A^0 



■>i 



Store "A" 
at 0633 



_/ No 



Restore 

initial 

F.M. codes 



Jump 
to 0700 



0702 -0704 



Are there 
other units 
to search on 



Search 
back # 
of F, M. 



< 



Have total \ 
* of F.M. ) 
been search/ 



A i 



Write non- 
stop 100g 
word record 
2008 records 



Status 
unit X 



Store 

status 
0016 



Repeat Test 



0733/ j ump 
Wo 0100 



/A = V 



,0710 



Mask or 
bit if 
coded 



0727-0730 0724 



Restore 
to zero 
0015 



A|10 



0720- 



AOD +1 
to select 
COdefi 



0722 



(Is thereWes 
8 "Pfr J ITl 



Are there other 
units to write 
non-stop & rewd 



Rewind 

unit X 



A = 
0716 




AOD +1 
to 0015 



A i 



(Have 400s \ 
blks been V 
written / 



SUB 
400 a 
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00000 6002 
4004 
7101 
0100 
0002 
1771 
0000 
0000 

00010 0000 
0000 

oooo 

0200 
0000 
0000 
0000 
0000 

00020 3777 
4000 
2010 

4oio 

2000 

4ooo 

2010 
4010 

00030 2111 
2121 
2131 
2141 
1161 
0000 
0000 
0000 

00040 0100 

0252 

0412 

0263 

0424 

0335 

0477 
0636 

00050 0741 
0336 
0500 
0637 
0337 
0501 
0340 
0502 
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00060 Oj42 

0743 
0610 

0577 
0604 

1111 

7700 
3777 

00070 0070 
1001 
0000 
0000 
0000 
0000 
0000 
0000 

00100 0400 
4005 
4006 
4007 
4010 
4011 
4012 
4014 

00110 4015 
4016 
4017 
2026 

4022 
4141 
4142 
2027 

00120 4023 
4143 
4144 
2030 
4145 
4146 
4147 
4150 

00130 2031 
4151 
4152 

4153 
2032 
4154 
4155 
2033 
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ooi4o 4156 
4157 
4160 
2034 
4161 
2024 

4020 
2005 

00150 0OI6 
1066 
6011 
2OO5 

0277 
6003 
2005 
6110 

00160 2005 
0610 
6105 
2005 
3040 

6102 
2065 

4120 

00170 2020 

3^7 
o006 

2005 
06ll 
4005 
5420 
6530 

00200 2062 
4163 
4l64 
0400 

7101 

0240 
4007 
7572 

00210 7565 
7371 
4000 
7565 
7600 

4oi6 

6145 

7557 
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00220 7600 
7556 
7261 
6000 

755^ 
7600 
U017 
6155 

00230 2120 

0277 

3521 
6I0O 
5*1-20 
5*1-21 

3713 
6507 

0021+0 2021+ 

4020 
2025 
1+021 
0*+00 
*+006 
1+007 
7572 

00250 7565 
7371 
2010 

7565 
7600 
1*016 
61I+5 
7557 

00260 7600 
7556 
7261 
*+010 

755^ 
7600 
1+017 
6155 

00270 2120 
0600 
3521 
6l60 
5^20 
51+21 
3713 
6507 
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00300 2235 
0207 
34o4 
6113 
2030 
1+145 
2031 
4151 

00310 2032 
4154 

2033 
4156 
7101 
0400 
5617 
5617 

00320 5617 
5617 
6562 
54o6 
0703 
6oo4 
7510 
7600 

00330 6560 
2016 
7701 
7101 
0244 
2111 
2121 
2131 

00340 2141 
1171 
2000 
4000 
5407 
0703 
6567 
2017 

00350 7702 
7101 

0244 

7703 
7101 
0240 
0000 
0000 
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00360 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00370 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00U00 202^ 
1*020 
2025 
1*021 

ouoo 
hoo6 
U007 
757^ 

oo^io 7567 
7373 
2010 

7567 
7600 

hOl6 
0301 

6ik6 

00^20 7560 
7600 
7557 
7262 
1+010 
7555 
7600 
U017 

00l|-30 0301 
6155 
2120 
0600 
3521 
6l60 
5'+20 
5^21 
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00440 3714 
650T 
2235 
0207 
3404 
6113 
2030 
4146 

00450 2031 
4152 
2032 
4155 
2033 
4157 
7101 
0540 

oo46o 5617 
5617 
5617 
5617 
6564 
54o6 
0703 
6oo4 

00470 7510 
7600 
6562 
2016 
7704 
7101 
0404 
2111 

00500 2121 
2131 
2141 
1172 
2000 
4000 
5407 
0703 

00510 6570 
2017 
7705 
7101 
0404 
7706 
7101 
0400 
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00520 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00530 7720 
7101 
05^0 
0000 
0000 
0000 
0000 
0000 

005^ 5^10 
0710 
6113 
oUoo 

l)O10 
7571 
2270 
0207 

00550 3*KA 
6li+l 

2030 
1+11+7 

51+11+ 
5 J +11 
3>H3 
6003 

00560 7101 
0576 
5I+12 
0703 
6030 
oi+oo 
1+010 
1+011 

00570 2207 

ll+l+O 

1+205 

1+211 
7101 
021+0 
2022 
0610 
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00600 4022 

4i4i 

1+11+2 

2023 
0610 
4023 
4143 
4144 

00610 7101 
0240 

5624 

6546 

2014 
4216 
7521 
2214 

00620 0701 
4212 
6504 
2214 
0207 

34o4 
6106 
2031 

00630 4153 
7101 
0700 
0000 
5603 
6521 
2111 
2121 

00640 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00650 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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oo66o oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00670 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00700 221+0 

0303 

7537 
73^1 
2100 

7535 
7600 
1+016 

00710 0276 
6003 
0301 
6122 

51+15 

3 J H3 

6516 

7521+ 

00720 2221 
0207 
3I+0I+ 
6007 
5615 
5615 
5615 
0l+00 

00730 1+015 
61+31 
01+00 

7101 

0100 

7707 
7101 
0700 
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007^0 1172 
2111 
21^1 

1161 

2000 
0000 

0000 
0000 

00750 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00760 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00770 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

01000 0000 
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NUMBER: T-650 

TITLE: Plotter Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160-A, 165 

PURPOSE 

This test program will check the ability of the plotter, while using all functions, to 
produce repetitious patterns and will check the input switches. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 3000 

TERMINAL ADDRESS: 3150 

CHECK SUM: 3205 

STARTING ADDRESS: Set all Jumps and Stops, Run from 3060 

ADDITIONAL INSTRUCTIONS: Switches thru 12 on the plotter may now be set one 
at a time for alternating the number of boxes plotted. Each switch from left to right 
corresponds to the number of boxes plotted. The program shall cause the plotter to 
home on the starting point. 
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D. PROGRAM REPERTOIRE 



03000 2645 
4245 

7542 Select Plot 
0400 
4243 

7440 Pen up 
7405 +X+Y 
5640 

03010 1642 
6503 
7420 Pen down 

7405 +X+Y 
5633 

1633 
6503 

7406 -X+Y 

03020 5627 
1630 
6503 
5623 
6521 
2620 
4220 
0400 

03030 4217 

7412 -X-Y 

5615 

1615 

6503 

7411 +X-Y 

5611 

1612 

03040 6503 
5605 
6513 

6015 Exit to Sense Sw. 
4401 
0005 
0000 
0000 

03050 0100 
0200 
0030 
0000 
0000 
0000 
0000 
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03060 7300 Selact IN? 
4440 
7600 
4234 
2231 
4071 
2230 
4072 

03070 2227 
4073 
2073 

6473 Exit to Plot 
1171 
6004 
2172 
4332 

03100 6110 To Add 3110 
5471 
5472 
1611 

6004 To Add 3110 
6313 
0000 
0000 

03110 7101 Exit to Plot 
3000 
0000 
0000 
3134 
3120 
3134 
0000 

03120 0001 
0002 
0004 
0010 
0020 
0040 
0100 
0200 

03130 0400 
1000 
2000 
4000 
0001 
0002 
0003 
0004 
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03140 0005 
0006 
0007 
0010 
0011 
0012 
0013 
0014 

03150 0000 
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NUMBER: T650-1 

TITLE: Plotter Retrace Test 

CATEGORY: 160-A, 165 

MINIMUM EQUIPMENT NEEDED: 160-A, 165 

PURPOSE 
This test will check the accuracy of the plotter. 

DESCRIPTION 

1. See flow chart. 

2. The routine lays a pattern of one half inch squares which will resemble a ten inch 
figure X. 

3. The plotter diagonals all the squares and ends by drawing a six inch line vertically 
through the center of the pattern. 

4. The pattern can be retraced to check the pattern accuracy. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0647 

CHECK SUM: 0165 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 1) SLJ 1 in up position will cause the pattern to be 

retraced. 
2) SLJ 2 in up position will cause the program to 
advance 10 1/2 inches and repeat the pattern. 
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en 




Start 



Store M. L. 
30-647 
M.L. 7.00 -1517 



_, Jump , 

M.L. 070<V ^ 



Pen 
Down 



T 



T 



+y L^rpj +x ^j^yM^ry^ _ y -^icrp>Q 



QJ _ x -^ ClcTfi^loT^ +x> +y -» ( 50? p > 



Pen 

Up 



-* +y ->/ 50? V^» 



Pen 
Down 



+x> . y - ^ 5O? ) IH>0 



G>^ 



Pen 

Up 



+y -^7)^| ^_>0=. 
~ 1 



Pen 

Up 



-y -4 1000? y^* 



Pen 
Down 



+y ^^7^0 



0_J ~ U^ToT^I!!^loT\lH, -y -^loT - )™. +x LQoT^^loT^IH, + y, -x _ ^50? ) "*, p « ^T) 



O"* "" -* ( 50 ? ^ D 



Pen 

)own 



+y - ^ 50? ) lg> 



Pen 

Up 



T 



HT 1 ^J^-C" r HKD 



NO 



O- 



Pen 
Up 



T 



\ / Down 



T 



— *( 500? ) » +y -»( 500? J » 



Pen 

Up 



-> ( 500? ^ ^^KA) 



(V)~* - y — ( sop? y ^* 



Pen 
Down 



-*( 500? V^ 5 * -y -*( 500? V 2 * 



Pen 

Up 



- ^oT) ^>Q 



YES YES """"' 



+y -»( 1050? V^ 1 * 

nz__ "^ 



Pen 
Down 



Jump 
To 



np ^Q 



Pen 

Down 



H J ™ p hG 




Incremental Plotter Pattern (65% actual size) 
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0000 


2100 


0001 


0030 


0002 


4100 


0003 


0700 


0004 


5701 


0005 


5704 


0006 


5604 


0007 


2200 


0010 


0646 


001 1 


3600 


0012 


0000 


0013 


6513 


0014 


2200 


00 15 


0700 


0016 


431 3 


0017 


2200 


0020 


0030 


0021 


4320 


0022 


0400 


0023 


431 1 


0024 


7101 


0025 


0700 


002S 


0000 


0027 


0000 


0030 


7101 


0031 


0630 


0032 


0001 


0033 


0001 


0034 


0001 


0035 


0001 


0036 


0001 


0037 


0001 


0040 


000 1 


0041 


000 1 


0042 


7500 


0043 


4401 


0044 


7401 


0045 


5602 


004S 


0462 


0047 


0700 


0050 


6506 


0051 


2200 


0052 


0700 


0053 


4304 


0054 


5602 


0055 


0424 


0056 


0700 


0057 


6527 


0060 


2200 


0061 


0700 


0062 


4304 


0063 


7500 


0064 


4401 


0065 


7410 


0066 


5602 


0067 


0462 


0070 


0700 



165:8 



0071 

0072 

0073 

0074 

0075 

007S 

0077 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

01 10 

01 I I 

01 12 

0113 

0114 

0115 

01 16 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

01 34 

0135 

0136 

01 37 

01 40 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

OISO 



6506 

2200 

0700 

4304 

7500 

4401 

7402 

5602 

0462 

0700 

6506 

2200 

0700 

4304 

5602 

0424 

0700 

6527 

2200 

0700 

4304 

0001 

7500 

4401 

7405 

5604 

2200 

0062 

3600 

0000 

6510 

0400 

4303 

7500 

4401 

7440 

7500 

4401 

7404 

5602 

0462 

0700 

650S 

2200 

0700 

4304 

7500 

4401 

7420 

7500 

4401 

741 I 

5504 

2200 

0062 

3600 
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0161 
I 62 

0163 
0154 
0165 
0166 
0167 
0170 
0171 
0172 
0173 
OI7tt 
0175 
0175 
0177 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 
021 I 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0245 
0247 
0250 



0000 
6510 
0400 
4303 
7500 
4401 
7440 
7500 
4401 
7404 
5602 
0462 
0700 
6506 
2200 
0700 
4304 
7500 
4401 
7420 
5602 
0412 
0700 
6571 
2200 
0700 
4304 
7500 
4401 
7440 
0001 
000 1 
0001 
000 1 
0001 
7500 
4401 
7410 
5604 
2200 
1750 
3600 
0000 
6510 
0400 
4303 
7500 
4401 
7420 
7500 
4401 
7404 
5602 
0462 
0700 
6506 



165:10 



0251 


2200 


0252 


0700 


0253 


4304 


0254 


7500 


0255 


4401 


0256 


7402 


0257 


5602 


0250 


0462 


02SI 


0700 


0262 


6506 


02S3 


2200 


0254 


0700 


0265 


4304 


0266 


5602 


0267 


0424 


0270 


0700 


0271 


6527 


0272 


2200 


0273 


0700 


0274 


4304 


0275 


7500 


0275 


4401 


0277 


7410 


0300 


5602 


0301 


0462 


0302 


0700 


0303 


6506 


0304 


2200 


0305 


0700 


0306 


4304 


0307 


7500 


0310 


4401 


031 1 


7401 


0312 


5602 


0313 


0452 


0314 


0700 


0315 


6506 


0316 


2200 


0317 


0700 


0320 


4304 


0321 


5602 


0322 


0424 


0323 


0700 


0324 


6527 


0325 


2200 


0325 


0700 


0327 


4304 


0330 


7500 


0331 


4401 


0332 


7406 


0333 


5604 


0334 


2200 


0335 


0052 


0336 


3600 


0337 


0000 


0340 


6510 
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0341 

034? 

0343 

0344 

0345 

034S 

0347 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0350 

0361 

0352 

0363 

0354 

03S5 

0366 

03S7 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0400 

0401 

0402 

0403 

0404 

0405 

040S 

0407 

04|0 

041 I 

0412 

0413 

0414 

0415 

04|5 

041 7 

0420 

0421 

0422 

0423 

0424 

0425 

042S 

0427 

0430 



0400 

4303 

7500 

4401 

7440 

7500 

4401 

7402 

5602 

0462 

0700 

6506 

2200 

0700 

4304 

7500 

4401 

7420 

7500 

4401 

7405 

5604 

2200 

0062 

3600 

0000 

6510 

0400 

4303 

7500 

4401 

7440 

7500 

4401 

7402 

5602 

0462 

0700 

6505 

2200 

0700 

4304 

7500 

4401 

7420 

SS02 

0412 

0700 

6571 

2200 

0700 

4304 

7500 

4401 

7440 

7500 
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0431 
0132 
0^33 
4 34 
0435 
0435 
0437 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0450 
0451 
0452 
0453 
0454 
0455 
0455 
0457 
0460 
0461 
04S2 
0463 
0464 
0465 
0466 
0467 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0500 
0501 
0502 
0503 
0504 
0505 
050S 
0507 
0510 
05! I 
0512 
0513 
0514 
0515 
051 6 
051 7 
0520 



4401 

74 10 

5604 

2200 

0764 

3500 

0000 

6510 

0400 

4 30 3 

7500 

4401 

7420 

7500 

4401 

7401 

5504 

2200 

0764 

3600 

0000 

6510 

0400 

4303 

7500 

4401 

7404 

5604 

2200 

0764 

3600 

0000 

6510 

0400 

4303 

7500 

4401 

7440 

7500 

4401 

7401 

5604 

2200 

0764 

3600 

0000 

6510 

0400 

4303 

7500 

4401 

7410 

5604 

2200 

0764 

3S00 
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0521 


0000 


52 2 


6510 


0523 


0400 


0524 


4303 


0525 


7S00 


0526 


4401 


0527 


7420 


0530 


7500 


0531 


4401 


0532 


7402 


0533 


5504 


0534 


2200 


0535 


0764 


053S 


3600 


0537 


0000 


0540 


6510 


0541 


0400 


0542 


4303 


0543 


7500 


0544 


4401 


0545 


7410 


054S 


5604 


0547 


2200 


0550 


0764 


0551 


3600 


0552 


0000 


0553 


6510 


0554 


0400 


0555 


4303 


0555 


7500 


0557 


4401 


0560 


7440 


0561 


7500 


0562 


4401 


0563 


7402 


0564 


5504 


0555 


2200 


0566 


0764 


0567 


3600 


0570 


0000 


0571 


6510 


0572 


0400 


0573 


4303 


0574 


7710 


0575 


0602 


0576 


7720 


0577 


0610 


0500 


7700 


0501 


0001 


0602 


7500 


0603 


4401 


0504 


7420 


0505 


7101 


0506 


0000 


0507 


06 1 1 


0510 


7500 
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OSI 1 


4401 


0512 


7404 


OBI 3 


5504 


OS 1 u 


2200 


0515 


2032 


0515 


3600 


051 7 


0000 


0520 


5510 


0521 


0400 


0522 


4303 


0523 


7500 


0524 


4401 


0525 


7420 


0525 


7101 


0527 


0000 


0530 


7500 


0531 


440! 


0532 


7420 


0533 


7500 


0534 


4401 


0535 


7404 


0535 


5502 


0537 


0462 


0540 


0700 


0541 


5506 


0542 


2200 


0543 


0700 


0544 


4304 


0545 


7101 


0545 


0712 


0547 


2771 
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NUMBER: T670 p ^ j_ , rr ,- _ __,,.. 

TITLE: Card Reader Test 

CATEGORY: 160-A, 167 or 167-2 

MINIMUM EQUIPMENT NEEDED: 160-A either 167 or 167-2 

PURPOSE 
This program will test the card reader. 

DESCRIPTION 
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ass ;, 
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The test will check the reading ability of the reader using a constant pattern deck., 
under normal, low, and high marginal conditions. ■ ,. , 

When applicable this will check the Hollerith to binary coded decimal conversion against 
a pre- stored check list. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape ,. , '' 

1. Turn on paper tape reader and MC y . / 

i 

2. Set Load Clear switch on load 



f/io 



r / 



3. Set Run switch .,•"' , / 

( ' ' y ' 

LOADING ADDRESS: 1000" i, 

TERMINAL ADDRESS: 1247 v . f 

CHECK SUM: 4607 ^ v^K ^ 

STARTING ADDRESS: 1000 Turn on Reader switch "Row 12" (If using column 1, 

corner cut cards) 

HALTS EXPLANATION 

1014 Single Cycle Read v 

One card is read as a check buffer aginst which all other cards 
are checked. 

1) Reset Run switch or start at 1015 to compare consecutive cards 
with information of first card, stops indicate the following: 

1067 7701 = "A" defines status halt 

^.1034 ^ 7702 = Bit failure in "A" 






II A II 



1037 7703 = Column failure in "A 
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HALTS EXPLANATION (Cont'd) 

2) The Run switch may reset after each stop except status for 
program continuation. All errors detected are displayed 
before a new card is read. Vary margin switch between tests. 



30 Free Run Read 

Three cards are read without a reselection between cards. Infor- 
mation is stored in a 3 card length buffer and is compared with 
correct information before reselection. 

1) Modify program for free run by s etting P = 1045 and setting run. 

A = 7566 Z = 7704 

2) To load check buffer, reset Run switch or start at address 1000. 

1117 Hollerith to Binary Coded Decimal 

The 167 cannot be used for this section. In order to check conversion, 
cards are read and compared to the previously stored pattern. Use 
of a Hollerith punched deck is required according to format listed in 
the program. 

1) Set P = 1104 and set run to modify program for H to BCD 

ST^tS UrJtf'A = 6012 ^Sk= 7706 

2) Reset Run switch or start at address 1000. 

3) Halts at 7701, 7702 and 7703 are similar to 1. a) above. 

4) New information may be checked by manually sweeping area 
1400 to 1450. Reset run to detect all errors and continue read. 

1141 Single Cycle Read Modification 

1) Set P = 1053 and set run 

A = 7566 Z = 7705 

2) Reset run switch to continue, and this will return to 1 above. 
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1000 


7566 


H to BCD = 6012 




1001 


7600 $?rt?U 


'-', 




1002 


6165 . 






1003 


7562 ■ 






1004 


7257 






1005 


cxxxx \-> 


i SC = 2120, 151 = 2360 




1006 


7560 v :■■& 






1007 


76OO > ^ /'' 






1010 


6157^ X 






1011 


7701^- 


Check sum loaded 




1012 


7554 






1013 


7600 






1014 


6153 






1015 


7550 






1016 


7255 >, 






1017 


Cxxxx /jf 


> SC - 1520, FR = 1760, 


H to BCD 


1020 


7546 






1021 


7600 






1022 


6145 






1023 


2240 






1024 


4204 






1025 


2246 






1026 


4204 






1027 


2100 






1030 


XXXX 7" 


Cheok address 




1031 


1500 






1032 


XXXX J 


N.I. address 




1033 


6005 






1034 


7702 






1035 


2305 






1036 


3625 






1037 


7703 






1040 


5706 






1041 


5711 






1042 


3622 






1043 


6514 






1044 


6432 , : : 






1045 


2225 " 






1046 


4341 .v 


J 




t047 


4215 






1050 


2225: 






1051 


4332- 






1052 


6147^ 






1053 


221 6 


■.' 




1054 


4347 






1055 


4207 






1056 


2216 






1057 


4340 


| 





1450 (1520 for 1617) 
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1060 


6152 


1061 


6012. 


1062 


7566 


1063 


XXXX ^ co oy FWA Check 


1064 


XXXX s / -• ..•» LWA+1 Check 


1065 


XXXX //<:,-,.->> Code. SC - 


1066 


. 4540 - 


1067 


7707 


1070 


2000 " 


1071 


2120 


1072 


2360, 


1073 


1400 -~ 


1074 


1520 


1075 


1760 


1076 


1200 


1077 


1250 (1320 for 1617) 


1100 


1450 (1520 for 1617) 


1101 


4501 


1102 


4502 


1103 


4506 


1104 


2304 


1105 


4366 


1106 


2310 


1107 


4324 


1110 


2311 


1111 


4325 


1112 


2307 


1113 


4326 ■ . 


1114 


2333 


1115 


4100< 


1116 


1000--/ 


1117 


7706 / 


1120 


6122 


1121 


2331 ~-~ 


1122 


4337 


1123 


2322 


1124 


4337 


1125 


2343 


1126 


4100 


1127 


1000 


1130 


7704 


1131 


6112 


1132 


2342 


1133 


4350 


1134 


2332 


1135 


4350 


1136 


2354 


1137 


4100 



4502, FR = 4501 , H to BCD = 4506 
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1140 


1000 






1141 


7705 






1142 


0400 






1143 


7101 






1144 


1000 
BCD 






1200 


0061 


Equivalent 


to A 


1201 


0062 


ii 


" B 


1202 


0063 


ii 


» C 


1203 


0064 


ii 


It 


1204 


0065 


ii 


" E 


1205 


0066 


ii 


ii p 


1206 


0067 


it 


» G 


120? 


0070 


ii 


" H 


1210 


0071 


ii 


» I 


1211 


0041 


ii 


11 J 


1212 


0042 


ti 


» K 


1213 


0043 


ti 


" L 


1214 


0044 


n 


« M 


1215 


0045 


ii 


it N 


1216 


0046 


ii 


" 


1217 


0047 


ii 


it p 


1220 


0050 


ii 


" Q 


1221 


0051 


ti 


" R 


1222 


0022 


ii 


» S 


1223 


0023 


ii 


n x 


1224 


0024 


ii 


ii u 


1225 


0025 


ti 


it v 


1226 


0026 


ii 


II w 


1227 


0027 


it 


■ X 


1230 


0030 


n 


it y 


1231 


0031 


ii 


« z 


1232 


0012 


it 


" 


1233 


0001 


n 


" 1 


1234 


0002 


ii 


ii 2 


1235 


0003 


ii 


ii 3 


1236 


0004 


ti 


" 4 


1237 


0005 


ii 


" 5 


1240 


0006 


ii 


■ 6 


1241 


0007 


it 


,. 7 


1242 


0010 


n 


» 8 


1243 


0011 


ii 


i. 9 


1244 


0014 


n 


" _ 


1245 


0013 


ii 


it = 


1246 


0034 


ii 


" ) 


1247 


0033 


ii 


• 


1250 


0054 


it 


H # 


1251 


0053 


n 


n $ 


1252 


0074 


n 


" ( 


1253 


0073 


ii 


ii 

* 
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BCD (continued) 



1254 
1255 
1256 
1257 



1317 



0021 
0060 
0040 
0020 



i I 



0020 



Equivalent to / 
ii ii 4. 

ii ii _ 

ii ii o 



» 





HOLLERITH 








1200 


6162 


Equivalent 


to 


A, B 


1201 


6364 


ii 


ii 


C, D 


1202 


6566 


ii 


ii 


E> F 


1203 


6770 


ii 


n 


G, H 


1204 


7141 


ii 


H 


I, J 


1205 


4243 


ii 


ii 


K, L 


1206 


4445 


ii 


ii 


M, N 


1207 


4647 


n 


n 


0, P 


1210 


5051 


it 


ii 


Q, R 


1211 


2223 


ii 


ii 


S, T 


1212 


2425 


it 


ii 


U, V 


1213 


2627 


ii 


ii 


W, X 


1214 


3031 


ii 


it 


Y, Z 


1215 


1201 


ii 


ii 


0,. 1 


1216 


0203 


it 


ti 


2, 3 


1217 


0405 


ii 


ii 


4, 5 


1220 


0607 


n 


ii 


6, 7 


1221 


1011 


ii 


ii 


8, 9 


1222 


1413 


n 


ii 


_ - 


1223 


3433 


ii 


ii 


) . 


1224 


5453 


ii 


ti 


* $ 


1225 


7473 


ii 


ii 


( , 


1226 


2160 


it 


ii 


/ + 


1227 


4020 


ii 


ii 


- 


1230 


2020 


ti 


ii 


0, 


I 


I 


I 


1 1 j 


1247 


2020 


it 


ii 


0, 
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NUMBER: T670-1 

TITLE: Comprehensive Speed and Information Test 

CATEGORY: 160 -A, 167 

MINIMUM EQUIPMENT NEEDED: 160 -A, 167 or 167-2 

PURPOSE 
This test checks the operation of 167 or 167-2 card reader connected to 160-A computer. 



The test has 3 sections: 



DESCRIPTION 

1. Time check 

2. Data check, single cycle read 

3. Data check, free run read 



Sections 2 and 3 are run in non-conversion or EC- 
depending upon a starting parameter in A. 



BCD and pack conversion mode, 



IX) AD INSTRUCTION: 


Paper Tape 


LOADING ADDRESS: 


0000 


TERMINAL ADDRESS: 


2140 


CHECK SUM: 


5166 


STARTING ADDRESS: 


0100 



OPERATING INSTRUCTIONS 



The routine continues until manually halted 



ADDITIONAL INSTRUCTIONS: 



HALTS 
0400 



0410 



Set bit in A to omit section 1 
Set bit 1 in A to omit section 2 
Set bit 2 in A to omit section 3 
Set bit 3 in A to test H — *■ BCD and pack mode 

EXPLANATION 

Status response appears in A 

To re-start: Correct error condition. Master clear if there was a 

feed failure, program error, or amplifier failure. Set P = 0400. Run. 

Timing error 

A = 0001. There is less than 79 ms of computing time available between 

the 80th column of one card and the 1st column of the next. 
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HALTS EXPLANATION (Cont'd. ) 

A = 0002. There is less than 1. 5 ms of computing time available 

between inputting of columns. 

To restart: Master clear. Set P = 0410. Run. 

02x0 Data error section 2. 

03x0 Data error section 3. 

0200 Error found in 5252 card. 

0300 Bit in error appears in A. Step twice to load number of column in 

error into A. Clear A after loading column number to ship checking 

remainder of card. 

To restart: Press run. 

0210 Error found in 2525 card. 

0310 Same description as for 5252 card. 

0220 Error found in random card. 

0320 A contains bit in error. A contains zero if logical check sum cannot 

detect the row in error. 
To restart: Press run. 

0230 Error found in Hollerith card. 

0330 BCD code actually read appears in A 6-11. 

BCD code that should have been read appears in A 0-5. 

If A is zero the card is not being recognized as a Hollerith card. 

Step twice to load number of column in error into A. 

Clear A after loading column number to skip checking remainder of 

card. 

To restart: Press run. 
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REM 










REM 










REM 






0000 




ORG 







0000 




CON 





0000 


0000 


STOP 







0001 


0000 


CKFLG 







0002 


0000 


CKSUP 







0003 


0000 


CKSLO 







0004 


0000 


CKS3 







0005 


5252 


C052 




5252 


0006 


2525 


CD25 




2525 


0007 


3777 


LOI I 




3777 


0010 


2260 


BUFEND 




BUF 790 


001 I 


2261 


BUFENT 




BUF 600 


0012 


2141 


BUFC 




BUF 


0013 


2141 


BUFI 




BUF 


0014 


2141 


BUFI2 




BUF 


0015 


0000 


ACONT 







0016 


0000 


DELAY 







0017 


0000 


CONT 







0020 


0000 


COLCT 







0021 


0000 


FCNT 







0022 


2041 


TABC 




TAB 


0023 


2041 


TABI 




TAB 


0024 


0000 


TEMP 







0025 


0000 


COL 







0026 


0000 


COCNT 







0027 


0000 


STATUS 







0030 


0000 


SAVE 









0100 




PRG 


too 


100 


7101 


START 


JFI 


1 


CIO! 


0500 






CKI67 




0176 




PRG 


176 


176 


7101 




JFI 


1 


0177 


0000 


ST52 







0200 


7700 




HLT 




C20I 


2025 




LDD 


COL 


0202 


7101 




JFI 


1 


0203 


0(76 






ST52 -1 



I60-A» 167 AND 167-2 TEST 
CARD. REAOEP PROGRAMMED 
FOR NORMAL CHANNEL 



CONTROLS SCR OR FRR ER STOP 
A PARAMETER 



ERROR STOPS 
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0206 

0206 7101 

0207 0000 ST25 

0210 7700 

0211 2025 

0212 7101 

0213 0206 
0216 

0216 7101 

02 17 0000 STRA 

0220 7700 

0221 7 101 

0222 0216 
0226 

C226 7101 
0227 0000 STH 
0230 7700 
023 1 2025 

0232 7101 

0233 0226 STH -| 
0276 

0276 7101 

C277 0000 STS2F 

0300 7700 

0301 2025 

0302 7101 

0303 0276 ST52F -I 
0306 

0306 7101 

0307 0000 ST25F 

0310 7700 

0311 2025 

0312 7101 

0313 0306 
0316 

0316 7101 

0317 0000 STRAF 

0320 7700 

0321 7101 

0322 0316 STRAF -I 
0326 

0326 7101 



PRG 


2Ufa 


JFI 


i 







HLT 




LDD 


COL 


JFI 


1 




ST2S 


PRG 


216 


JFI 


1 







HLT 




JFI 


1 




STRA 


PRG 


226 


JFI 


1 







HLT 




LOO 


COL 


JFI 


1 




STH 


PRG 


276 


JFI 


1 







HLT 




LOO 


COL 


JFI 


1 




ST52F 


PRG 


306 


JFI 


1 







HLT 




LOD 


COL 


JFI 


1 




ST25F 


PRG 


316 


JFI 


1 







HLT 




JFI 


1 




STRAF 


PRG 


326 


JFI 


1 



167:10 



0327 


0000 


STHF 







0330 


7700 




HLT 




0331 


2025 




LUO 


COL 


0332 


7101 




JFI 


1 


0333 


0326 






STHF -1 




0375 




PRG 


375 


0375 


7101 




JFI 


1 


0376 


0000 


STSTAT 







0377 


2027 




too 


STATUS 


0400 


7700 




HLT 




0401 


7101 




JFI 


1 


0402 


0375 






STSTAT -1 




0406 




PRG 


406 


0406 


7101 




JFI 


1 


0407 


0000 


STTIM 







0410 


7700 




HLT 




041 1 


7101 




JFI 


1 


0412 


0406 






STTIM -1 




0500 




PRG 


500 


0500 


4017 


CRI67 


STD 


CONT 


0501 


0400 




LON 





0502 


4001 




STD 


CKFLG 


0503 


2200 




LDC 


C8I67A 


0504 


0506 








0505 


0070 




ACJO 




0506 


2017 


CRI67A 


LDO 


CONT 


0507 


0201 




LPN 


1 


0510 


6103 




NZF 


CRI67B 


051 1 


7101 




JFI 


1 


0512 


0522 






CRTIME 


0513 


2017 


CRI67B 


LDO 


CONT 


C5I4 


0202 




LPN 


2 


0515 


6103 




NZF 


CRI67C 


05 16 


7101 




JFI 


1 


0517 


0674 






CRSCR 


0520 


7101 


CRI67C 


JFI 


1 


052 1 


1043 






CRFRR 


0522 


7500 


CRTIME 


EXC 


4S40 


0523 


4540 








0524 


7600 




INA 




0525 


4027 




STD 


STATUS 



SET BANKS 



CHECK COL 80-1 TIME 
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LPN 


77 


ZJF 


CRTM2 


JPR 


STSTAT 


JF1 


1 




CRTIMF 


EXC 


4502 


INP 


8UFT 




BUF 


EXC 


4540 


!NA 




STD 


STATUS 


LPN 


77 


ZJF 


CRTT14 


JPR 


STSTAT 


JFI 


1 




CRTIME 


EXC 


4502 



C52S 0277 

C527 6005 

0530 7100 
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4025 




STO 


COL 




1512 


2024 




LOO 


TEMP 




1513 


7100 


CK25Z 


JPR 


9 




1514 


2140 










1515 


6302 




NJF 


CK26 




1516 


6005 




ZJF 


CK27 




1517 


5413 


CK26 


AOO 


BUFI 




1520 


3600 




SBC 


BUF 800 


1521 


2261 










1522 


6540 




Nza 


CK22 




1523 


7101 


CK27 


JFI 


1 




1524 


1275 






CK -1 


CARD CHECK COMPLETED 


1525 


2200 


CK30 


LDC 


ST25 


CHECK 25 CARD 


1526 


0207 










1527 


3015 




AOO 


ACONT 




1530 


4217 




STF 


CK33Z 1 




1531 


4235 




STF 


CK35Z 1 




1532 


2012 




LDO 


RUFC 




1533 


4013 




STO 


BUFI 




1534 


21 13 


CK32 


LOI 


BUFI 




1535 


1406 




SCO 


CD25 




1536 


6302 




NJF 


CK33 




1537 


6013 




ZJF 


CK34 




1540 


4024 


CK33 


STD 


TEMP 




1541 


2013 




LOO 


BUFI 




1542 


3412 




SBO 


BUFC 




1543 


0601 




AON 


1 




1544 


4025 




STO 


COL 




1545 


2024 




LCD 


TEMP 




1546 


7100 


CK33Z 


JPR 


« 




1547 


2140 










1550 


6302 




NJF 


CK34 




1551 


6024 




ZJF 


CK37 




1552 


5413 


CK34 


AOO 


BUFI 




1553 


21 13 




LOI 


BUFI 




1554 


1405 




SCO 


CD52 




1555 


6302 




NJF 


CK35 




1556 


6013 




ZJF 


CK36 




1557 


4024 


CK35 


STO 


TEMP 




1560 


2013 




LOO 


BUFI 




1561 


3412 




SBO 


BUFC 
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1562 


0601 




AON 


1 


1563 


4025 




STO 


COL 


1564 


2024 




LDD 


TEMP 


1565 


7100 


CK35Z 


JPR 


a 


1566 


2140 








1567 


6302 




NJF 


CK36 


1570 


6005 




ZJF. 


CK37 


1571 


54 13 


CK36 


AOD 


RUFI 


1572 


3600 




SBC 


aup 


1573 


2261 








1574 


6540 




NZB 


CK32 


1575 


7101 


CK37 


JFI 


1 


1576 


1275 






CK 


1577 


7101 




JFI 


1 


1600 


0000 


CKH 







1601 


2012 




LDO 


bUFC 


1602 


4013 




STD 


BUFI 


1603 


2022 




LOO 


TABC 


1604 


4023 




STO 


TABI 


1605 


21 13 


CKH2 


LD1 


BUFI 


1606 


1200 




LPC 


7700 


1607 


7700 








1610 


01 1 1 




LS6 




161 1 


4024 




STO 


TEMP 


1612 


2024 


CKH3 


LDO 


TEMP 


IRI3 


1523 




SCI 


TABI 


1614 


6006 




ZJF 


CKH4 


1615 


5423 




AOO 


TAfal 


1616 


3600 




SBC 


TAB 


1617 


2140 








1620 


6506 




NZB 


CKH3 


1621 


6014 




ZJF 


CKHIO 


1622 


5423 


CKH4 


AOO 


TABI 


1623 


3600 




BBC 


TAB 


1624 


2140 








1625 


6104 




NZF 


CKH5 


1626 


2200 




LDC 


TAB 


1627 


204 1 








1630 


4023 




STO 


TABI 


1631 


21 13 


CKH5 


LOI 


BUFI 


1632 


0277 




LPN 


77 



800 



CARD CHECK COMPLETED 
CHECK 167-2 CAHO 



77 



77 
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1633 1523 SC! TABI 

1634 6073 ZJF CKHI4 

1635 5413 CKHIO AOO BUFI 

1636 2022 LOO TSBC 

1637 4023 STO TABI 

1640 2113 LOI BUFI 

1641 1200 LPC 7700 

1642 7700 

1643 01 I I LSS 

1644 4024 STD TEMP 

1645 2024 CKHII LOD TEMP 

1646 1523 SCI TABI 

1647 6017 ZJF CKHI2 

1650 5423 AOO TABI 

1651 3600 SBC TAB 77 

1652 2140 

1653 6506 NZ6 CKHII 

1654 2200 CKH8 LDC STH 

1655 0227 

1656 3015 AOO ACONT 

1657 4204 STF CKH9 I 

1660 0400 LON 

1661 4025 STO CBL 

1662 7 100 CKH9 JPR * 

1663 2140 

1664 7101 JFI I 

1665 1577 CKH -I 

1666 5423 CKHI2 AOO TSBI 

1667 3600 SBC TAB 77 

1670 2140 

1671 6104 NZF CKHI3 

1672 2200 LOC TAB 

1673 2041 

1674 4023 STO TABI 

1675 2113 CKHI3 LOI BWFI 

1676 0277 LPN 77 

1677 1523 SCI TABI 

1700 6524 NZB CKH8 

1701 2023 LOD TABI 

1702 0701 SBN I 

1703 4023 STO TABI 

1704 3600 SBC TAB -I 
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1705 


2040 






1706 


6106 


NZF 


CKHIS 


1707 


2200 


LOC 


TAB 7' 


1710 


2135 






171 1 


4023 


STO 


TABI 


1712 


7101 


JFI 


1 


1713 


1740 




CKHI7 


1714 


2023 CKHI5 LOO 


TABI 


1715 


0701 


SBN 


1 


1716 


4023 


STO 


TIB I 


1717 


3600 


SBC 


TAB -1 


1720 


2040 






1721 


6106 


NZF 


CKHI4 


1722 


2200 


LOC 


TAB 7 


1723 


2136 






1724 


4023 


STO 


TABI 


1725 


7101 


JFI 


1 


1726 


1740 




CKHI7 


1727 


2023 CKHI4 LOO 


TABI 


1730 


0701 


SbN 


1 


1731 


4023 


STO 


TABI 


1732 


3600 


SBC 


TAB -1 


1733 


2040 






1734 


6104 


NZF 


CKHI7 


1735 


2200 


LOC 


TAB 7 


1736 


2137 






1737 


4023 


STO 


TABI 


1740 


2012 CKHI7 LOO 


BUFC 


1741 


4013 


STD 


RUFI 


1742 


2200 


LOC 


STH 


1743 


0227 






1744 


30 15 


ADD 


ACONT 


1745 


4222 


STF 


CKH25 1 


1746 


4252 


STF 


CKH27 1 


1747 


2113 CKH20 L01 


RUFI 


1750 


1200 


LPC 


7700 


1751 


7700 






1752 


01 1 t 


LS6 




1753 


1523 


SCI 


TiBI 


1754 


6020 


ZJF 


CKH2I 


1755 


2013 


LOD 


BUFI 
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1756 


3412 


SBO 


BUFC 


1757 


0102 


LSI 




1760 


0601 


ADN 


1 


1761 


4025 


STD 


C8L 


!762 


2113 


LOI 


8UFI 


1763 


1200 


LPC 


7700 


1764 


7700 






1765 


1523 


SCI 


TABI 


1766 


7100 CKH25 UPR 


* 


1767 


2140 






1770 


6304 


NJF 


C&H2I 


1771 


6103 


NZF 


CKH2I 


1772 


7101 


JFI 


1 


1773 


1577 




CKH 


1774 


5423 CKH2I A00 


TBBI 


1775 


3600 


SBC 


TAB 


1776 


2140 






1777 


6103 


NZF 


CKH22 


2000 


2022 


LDD 


TABC 


2001 


4023 


STO 


TABI 


2002 


2113 GKH22 LOI 


BUFI 


2003 


0277 


LPN 


77 


2004 


1523 


SCI 


TABI 


2005 


6020 


ZJF 


CKH23 


2006 


2013 


LDD 


BUFI 


2007 


34 12 


SBO 


BUFC 


2010 


0102 


LSI 




201 1 


0602 


AON 


2 


2012 


4025 


STD 


COL 


2013 


21 13 


LDI 


BWFI 


2014 


0277 


LPN 


77 


2015 


01 It 


LSb 




2016 


1523 


SCI 


TABI 


2017 


7100 CKH27 JPR 


o 


2020 


2140 






202 1 


6304 


NJF 


C8H23 


2022 


6103 


NZF 


CKH23 


2023 


7101 


JFI 


1 


2024 


1577 




CKH 


2025 


5423 CKH23 AOD 


TABI 


2026 


3600 


SBC 


TAB 


2027 


2140 







-I 

77 



77 
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2030 


6103 


NZF 


OH24 


2031 


2022 


LDO 


T»BC 


2032 


4023 


STO 


TABI 


2033 


5413 CKH24 AOD 


HUFI 


2034 


3600 


SeC 


BUF 


2035 


221 1 






2036 


6567 


NZB 


CKH20 


2037 


7101 


JFI 


1 


2040 


1577 


KEM 


CKH 


2041 


0001 TAB 


1 


2042 


0002 




2 


2043 


0003 




3 


2044 


0004 




4 


2045 


0005 




5 


2046 


0006 




6 


2047 


0007 




7 


2050 


00 10 




10 


2051 


001 1 




1 1 


2052 


0012 




12 


2053 


00 13 




13 


2054 


0014 




14 


2055 


00 15 




15 


2056 


0016 




19 


2057 


0017 




17 


2060 


0020 




20 


2061 


0021 




21 


2062 


0022 




22 


2063 


0023 




23 


2064 


0024 




24 


2065 


0025 




25 


2066 


0026 




2b 


2067 


0027 




27 


2070 


0030 




30 


2071 


0031 




jl 


2072 


0032 




32 


2073 


0033 




33 


2074 


0034 




34 


2075 


0035 




35 


2076 


0036 




33 


2077 


0037 




37 



40L) 



CARD CHECK COMPLETED 
TAbLE OF LEGAL COOES 
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2 100 


0040 


4$ 


2 101 


0041 


41 


2 102 


0042 


U2 


2 103 


0043 


43 


2 104 


0044 


44 


2 105 


0045 


45 


2106 


0046 


4 6 


2107 


0047 


47 


2 110 


0050 


5<D 


2111 


0051 


51 


2112 


0052 


S2 


2113 


0053 


58 


21 14 


0054 


54 


2 115 


0055 


55 


2116 


0056 


Sfa 


21 17 


0057 


57 


2120 


0060 


SO 


2121 


OObl 


bl 


2122 


0062 


62 


2 123 


0063 


63 


2124 


0064 


64 


2125 


0065 


65 


2126 


0066 


66 


2127 


0067 


67 


2 130 


0070 


7U 


2131 


00 71 


71 


2132 


0072 


12 


2133 


0073 


73 


2134 


0074 


74 


2 135 


0075 


78 


2136 


0076 


76 


2137 


0077 


77 


2 140 


0000 » 


BSS 1 


2141 


0000 BUF 


RbS 1 




0000 


END 
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NUMBER: T681-1 

TITLE Arithmetic Test for 168-1 

CATEGORY: 160-A, 168-1 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-1 

PURPOSE 
To ascertain that the arithmetic operations of the 168-1 are functioning properly. 



DESCRIPTION 

The 160-A generates operands and directs the 168-1. 
addition and division is used to check multiplication. 



Subtraction is used to check 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECKSUM: 
STARTING ADDRESS: 



0770 
0160 
0000 
0001 
0002 
0003 
0004 

ADDITIONAL INSTRUCTIONS: 



OPERATING INSTRUCTIONS 

Paper Tape INPUT PARAMETERS 

0000 At 7777 stop with P =0010 

set A to the number of times 
to repeat selected test. 
Previously run test 
Add/Subtract only 
Short Multiply /Divide only 
Long Multiply /Divide only 
All tests 

1) All selective stop switches up 

2) All selective jump switches down 



HALTS 

7777 

7700 

7707 

7701 

7702 

7700 

7700 

7700 



EXPLANATION 

P =0010, Load number of test runs in A and run 

P = 0133, Non-zero status ^ 0004 in A 

P = 0152, Add overflow error 

P = 0244, 0266, 0450, and 0647, First word error 

P = 0252 and 0655, Second word error 

P = 0255, 0326, 0526, Non-zero status in A 

P = 0431, and 0623, Non-zero status ^ 0010 in A 

P = 0440 and 0641, Divide fault error 
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HALTS EXPLANATION (Cont'd. ) 

7702 P = 0457, Remainder / zero 

7703 P = 0673, Remainder / zero 
7777 P =0754, End of test 
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00000 



Tito 
Tito 
Tito 
Tito 
Tito 
oooo 
oooo 
oooo 



Same tests 
Add/Subt 
Short Mult/Div 
Long Mult/Div 
All Tests 



00010 



00020 



TTTT 
6oo4 
4100 
OT52 

otoo 

4100 
1000 

4100 

1001 

4ioo 

1002 
4100 
1003 
4100 
0T50 
4100 



Load no. of test runs in A and run 
Restore counters, constants 



1000-1001 
1004-1005 
1006-1007 
1010-1011 

1012-ion 

1014-1017 
1O2O-102T 



Operands 

Add result 

Sub. result 

Short Mult, result 

Short Hiv. result 

Long Mult, result 

Long Div. result 



00030 



0741 
7101 
0100 

oooo 
oooo 
oooo 
oooo 
oooo 



- (o^oo) (0500) 



oooto 



0100 

0160 
0360 
0560 
0050 
oooo 
oooo 
oooo 



(0300) (0500) (0100) 



00050 



2200 
0100 

4312 

4032 
4100 

0T31 
2200 

0300 



Establish all tests 
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00060 4100 
0254 

2200 
0500 
4100 
046l 
0400 
6457 

00070 0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 

00100 7500 Add 

3323 
7334 

1004 
7101 

0120 
0000 
0000 

00110 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00120 7217 

1006 
7500 

3304 
7600 

6053 ZJF if zero - 0200 
0704 

6103 
00130 6010 

0000 

0604 

7700 Non-zero status $ 000U in A 

7101 

0100 

1000 

1004 
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001^0 



2100 
1001 
6203 
2500 
1001 
3600 
0316 
6303 



00150 



7101 
0253 
7707 
7101 
0100 
0000 
0000 
0000 



Arid overflow error 



00160 



00170 



2200 
0100 

6ooi 
to32 
JU55 
2200 
0700 

M6l 

otoo 
7101 

0010 
0000 
0000 
0000 
0000 



Establish Add/Sub only 



00200 



7500 
3363 
7303 
1006 
7353 
100^ 
7101 
0220 



Subtract 



00210 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00220 72ltO 
1010 
7500 
3304 
7600 

6130 wzr - 0255 

2100 Compare 
1006 

OO23O 6131 
2100 
1007 
6126 
2100 
1000 
6223 
2100 

002^0 1006 
3100 
1000 
6002 

7701 First word error 
2100 

1007 
3100 

00250 1001 
6002 

7702 Second word error 
7101 

0700 (0300) 

7700 Non-zero status in A 
6503 

1002 

00260 1006 
2100 
1006 
3500 
1000 
6002 

7701 First word error 
2100 

00270 1007 
3500 
1001 
6420 
6522 
0000 
0000 
0000 
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00300 7500 Short Multiply 
3301 
7333 
1001 
7332 
1003 
7101 
0320 

00310 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00320 7217 
1012 
7500 
3304 
7600 
6053 

7700 Non-zero status in A 
7101 

00330 0300 
0000 
0000 
0000 
0000 
1000 
1002 
1010 

oosto 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00350 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00360 2200 Establish short multiply / 
0300 Divide only 
4040 
6001 
1(032 
4155 
2200 
0700 

00370 4l65 

o4oo 

7101 
0010 
0000 
0000 
0000 
0000 

00400 7500 short Divide 
3300 
7363 
1012 
7362 
1003 
7101 
0U20 

00410 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00420 7247 
1014 
7500 
330^ 

7600 
6016 
0710 
6003 

00430 0610 

3100 Non-zero status / 0010 in A 

1002 
6024 
2500 
1002 
6021 
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OoV+0 7700 Divide fault (Divide by zero) 
7101 
0300 

2100 Compare 
1012 
3500 
1000 
6002 

00450 7701 First word error 
2100 
1013 
6005 
2500 
1013 
6002 
7702 Remainder / zero 

00460 7101 

0700 (0500) 

0000 

0000 

0000 

1010 

1002 

1012 

00470 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00500 7500 Long multiply 
3303 
7334 
1004 
7101 
0520 
0000 
0000 

00510 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00520 7217 

1021 Input disconnect fails if 

7500 here awaiting an input. 

3304 

7600 

6053 

7700 Non-zero status in A 

7101 

00530 0500 
0000 
0000 
0000 
0000 
0000 
1000 
1014 

005^-0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00550 0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 

00560 3200 Establish long multiply / 
0500 Divide only 

4o4o 

6001 
4032 
4155 
0400 
7101 

00570 0010 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00600 7500 Long Divide 
3302 

7373 
1020 
7372 
1004 
7101 
0612 

00610 7500 
3310 
7265 
1024 
7500 
3304 
7600 
6023 

00620 0710 
6003 
0610 

7700 Non-zero status / 0010 in A 

2100 

1002 

6010 
2500 

OO63O 1002 
6110 
2500 
1003 
6105 
6043 
2100 
1093 

00640 6040 

7700 Divide Fault 
2100 Compare 
1020 

3500 
1000 
6002 

7701 First word error 

OO65O 2100 
1021 
3500 
1001 

6002 

T702 Second word error 

2100 

1022 
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00660 6010 
2500 
1022 
6110 
2500 
1023 
6105 
6011 

006T0 2100 
1023 
6006 

7703 Remainder / zero 

6104 

1014 

1002 

1020 

00700 2500 A iter first operand 
1000 
4100 
1000 
2500 
1001 
4100 
1001 

00710 6320 
04ll 
5100 
1000 
6214 
0400 
4100 
1000 

00720 0411 
5100 

1001 

6205 

0400 
4100 
1001 

6011 
00730 7101 

0100 (0300) (0500) 

0000 

0000 

0000 

0000 

0000 

0000 
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00740 2200 Alter second operand 
0000 
0102 
6013 
4303 

3621 Check for end of test 
6112 
5600 

00750 0000 Number of tests completed 
3600 

0000 no. of times to repeat 
6523 

777T End of Test 
7112 
2210 
4316 

00760 2317 
4100 
1002 
4100 
1003 
6535 
0715 
0011 

00770 1636 cheek sum constant 
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NUMBER: T 68 1-2 

TITLE: AU Select Test 

CATEGORY: 160-A, 168-1 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-1 

PURPOSE 

This test checks, by selecting another external equipment, whether the 168-1 can 
be interrupted at any point and, upon reselection, resume operation without error. 
All of the 168-1 status replies are also checked. 

DESCRIPT ION 

Tests all 168-1 functions by intermixing them with paper tape reader codes and I/O 
instructions. Errors are detected by using fixed operands. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0673 

CHECK SUM: 0160 

STARTING ADDRESS: 0000 



ADDITIONAL INSTRUCTIONS: 



1. Place a loop of tape in the paper tape reader 
(any loop is satisfactory since the data is not 
used). 

2. Enter number of test runs in A. 



HALTS 

7777 
7700 
770X 



EXPLANATION 

End of test 

Status error 

Operation error X = wrong word 
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10000 



10010 



10020 



10030 



iooUo 



10050 



6loii 
li020 
7101 
0100 
1*021 
OijOO 

I4020 

7101 

0100 
OOOQ 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0001 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



clr counter 

store new count 
clr counter 



STOPS 
7777 End of test 
7700 Status error 
770X Operation error 



counter 
count 



OPERATION 
Load a 0000 

M. C.j Place number of tests 
in Aj Run stop at end of test 
(7777) 



New number of tests may be 
established by placing the 
number in A at the end of test 
stop and run again without M.C. 



If nothing is entered in A, 
the previous number of tests 
will run again. 
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10060 



10070 



10100 



10110 



10120 



10130 



0000 




0000 




0000 




oooo 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




7500 


sel start 


3301* 


ready 


7600 




6002 




7700 


error 


7500 


sel 11 div. 


3300 




71*11* 




71*00 




71*02 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel 11 mult 


3301 




71*02 




71*03 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel 22 div. 


3302 




71*11* 




71*00 





168-1:17 



loiliO 



10150 



10160 



10170 



10200 



10210 



71*00 




71*00 




7ll02 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7600 




6002 




770? 


error 


7600 




6002 




7704 


error 


7500 


sel 22 mult 


3303 




71*02 




71*00 




71*03 




71*00 




7600 




0706 




6002 




7701 
7600 


error 


6002 




7702 


error 


7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel add 


3323 




71*01* 




71*00 




71*02 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6002 





168-1:18 



10220 



10230 



102l*0 



10250 



10260 



10270 



7702 


error 


7500 


sel sub. 


3363 




71*11 




71*00 




71*03 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6001* 




7702 


error 


0000 




0000 




7500 


sel 11 div. 


3300 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




7101* 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




71*00 




71*02 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7500 


sel reader 


1*102 




7600 




7500 


sel start 


3301* 


unload not complete 


7600 




0720 




6002 





168-1:19 



10300 



10310 



10320 



10330 



103U0 



10350 



7700 


error 




7500 


re sel 




3310 






7600 






6002 






7702 


error 




01*77 






0701 






6501 






7500 


sel start 




3301* 


ready- 




7600 






6002 






7700 


error 




7500 


sel 11 mult 




3301 






7500 


sel start 




330l» 


ready- 




7600 






0700 






6002 






7700 


error 




7500 


sel reader 




U102 






7500 


re sel 




3310 






7U02 






7500 


re sel 




3310 






71403 






7500 


sel reader 




bl02 






7600 






7500 


re sel 




3310 






7600 






0706 






6002 






7701 


error 




7500 


sel start 


unload not complete 


330U 






7600 






0720 






6002 






7700 


error 




7500 


re sel 




3310 






7600 
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10360 



10370 



101*00 



101*10 



101*20 



101*30 



6002 




7702 


error 


7500 


sel 22 div. 


3302 




71*11* 




71*00 




71*00 




7500 


sel reader 


U102 




7500 


re sel 


3310 




71*00 




71*02 




71*00 




7500 


sel start 


330l» 


busy compute 


7600 




071*0 




6002 




7700 


error 


7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel reader 


1*102 




7500 


re sel 


3310 




7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel 22 mult. 


3303 




71*02 




71*00 




71*03 




71*00 




7500 


sel start 


3301* 




7600 


busy compute 



168-1:21 



102^0 



101*50 



101*60 



101*70 



10500 



io5io 



6002 




7700 


error 


7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




7600 




6002 




7702 


error 


7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel add 


3323 




71*01* 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




71*00 




71*02 




71*00 




7600 




0706 




6002 




7701 


error 


7500 


sel start 


3301* 


unload not complete 


7600 




0720 




6002 




7700 


error 


7500 


sel reader 


1*102 




7600 




7500 


re sel 
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10520 3310 
7600 
6002 

7702 error 
7500 sel reader 
1*102 
7600 
7500 sel start 

10530 33* 
7600 
6002 

7700 error 
7500 sel sub 
3363 

7500 sel start 
3301* ready 

1051*0 7600 
6002 

7700 error 
7500 re sel 
3310 

71*11 
71*00 
71*03 

10550 71*00 
7600 
0706 
6002 

7701 error 
7500 sel start 
3301* 

7600 unload not complete 

10560 0720 
6002 

7700 error 
7500 re sel 
3310 
7600 
6002 

7702 error 

10570 7500 sel 11 div for div fault 
3300 
7310 
0606 
7500 

3301* sel start 
7600 
0750 div fault and busy compute 
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10600 



10610 



10620 



10630 



106U0 



10650 



6006 
7700 
0603 
1670 
0001 
0U77 
0701 

6501 
7500 
330U 
7600 
0730 
6002 
7700 
7500 

.3323 
7310 
0636 
7500 

7600 
072li 
6007 

7700 
0632 
3777 
3777 
0001 
0000 
7500 

3363 

7310 

0655 
7500 
330i< 
7600 
072U 
6007 
7700 

0651 
3777 
3777 
7776 
7777 
51*20 
2021 
3U20 



sel start 

div fault and unload not complete 



error 

sel add for add overflow 



sel start 

add overflow and unload not complete 

error 



sel sub for sub overflow 

sel start 

sub overflow and unload not complete 

error 



advance counter 
compare to count 
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10660 6005 
7500 | 



3301 J sel. clear MDU 

7101 jump to repeat test 

0100 

7500 1 sel. clear MDU 

3300 J 

02*00 



10670 7777 end of test 
7101 1 

0000 J jump to establish new number of tests 

2665 sum 
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NUMBER: T682-1 

TITLE: Arithmetic Test for 168-2 

CATEGORY: 160-A, 168-2 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-2 



PURPOSE 

To ascertain that the arithmetic operations (including compute result operations) of the 
168-2 are functioning properly. 

DESCRIPTION 

The test routine consists of four separate arithmetic tests. The 160-A generates 
operands and directs the 168-2. Subtraction is used to check addition and division is 
used to check multiplication. 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECKSUM: 
STARTING ADDRESS: 



Paper Tape 

0000 

2500 

0160 

0000 

0001 

0002 

0003 

0004 



INPUT PARAMETERS 

At 7777 stop with P =0010 

Set A to number of times 

to repeat selected test. 

Previously selected test 

Add/Subtract only 

Multiply/ Divide only 

Shift/Normalize only 

All tests, including "compute 

result" operations. 



ADDITIONAL INSTRUCTIONS: 



1) All selective stop switches up. 

2) All selective jump switches down. 



HALTS 

7777 

7700 

7700 
7700 



EXPLANATION 

P = 0010, Set A to number of repetitions for test and restart. 

P = 0131, 0252, 0326, 0431, 0541, 0560 and 0573, Incorrect 

status displayed in A. 

P = 0144, Incorrect overflow. 

P = 0443, Divide fault. 



168-2:1 



HALTS 
7700 

7700 
7701 
7702 
7703 
7704 
7704 
7777 



EXPLANATION (Cont'd. ) 

P = 1164, "Compute result" error. See error stops as indicated by- 
contents of A register. 

P = 1665, Multiply to normalize 28th bit error. 
P = 0233, 0451 and 0610, First word error. 
P = 0241, 0451 and 0613, Second word error. 
P = 0247, 0465 and 0620, Third word error. 
P = 0410, Multiply/ Divide error: remainder ^ zero. 
P =0605, Shift count error. 
P = 0775, End of test. 



168-2:2 



ERROR STOPS 



1 
2 
3 



4 
5 
6 
7 
10 
11 



12 
13 
14 



15 
16 
17 



20 
21 
22 



23 
24 
25 
26 
27 
30 



31 
32 
33 



34 
35 
36 



Word No. 



1 
2 
3 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



Condition 



P ■ 1164 
Z = 7700 



Add/Add 



Add /Multiply 



Add/ Normalize 



Add/Left Shift 



Subtract/Add 



Subtract /Multiply 



Subtract/ Normalize 



Subtract/ Left Shift 
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37 


1 


i 


40 


2 


Multiply/Add 


41 


3 

> 


' 


42 


1 


i 


43 


2 




44 
45 


3 
4 


Multiply/ Multiply 


46 


5 




47 


6 


> 


50 


1 


i 


51 


2 


Multiply/ Normaliz 


52 


3 


53 


) 
1 


\ 


54 


2 


Multiply /Left Shift 


55 


3 


i 


56 


/ 
1 


i 


57 


2 


Divide /Add 


60 


3 


^ 


61 


1 


i 


62 


2 




63 
64 


3 

4 


Divide /Multiply 


65 


5 




66 


6 




67 


i 

1 




70 


2 


Divide/ Normalize 


71 


3 




72 


i 
1 




73 


2 


Divide /Left Shift 


74 


3 

1 




75 


l 




76 


2 


Right Shift/Add 


77 


3 
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100 
101 
102 
103 

104 
105 



106 
107 
110 



111 
112 
113 



114 
115 
116 



117 
120 
121 



122 
123 
124 



125 
126 
127 



130 
131 
132 



133 
134 
135 



136 
137 
140 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



Right Shift /Multiply 



Right Shift /Normalize 



Right Shift /Left Shift 



Add /Subtract 



Subtract / Subtract 



Multiply/ Subtract 



Divide / Subtract 



Right Shift /Subtract 



Left Shift /Subtract 



Add/Divide 
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141 
142 
143 



144 
145 
146 



147 
150 
151 



152 
153 
154 



155 
156 
157 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



Subtract/ Divide 



Multiply /Divide 



Divide /Divide 



Right Shift /Divide 



Left Shift/ Divide 
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168-2 TEST ROUTINES 



00000 



7l40 
7140 

7l4o 
7l4o 
7161 

0000 

0676 

0000 



Repeat same test as before 

Add-subtract only: 10 min. 

Multiply-divide only: 16 min. 

Shift-normalize only: 30 millisec. 

All tests, including compute result op.: 34 min. 



00010 



7777 
6004 

4ioo 
0752 

014-00 
4100 

0750 
4ioo 



HLT: Enter in "A" number of times test is to run 



00020 



07^1 
4100 
1005 
4100 
1004 
4100 
1003 
0400 



00030 



4100 
1000 
4100 
1001 

4100 

1002 
6001 
7101 



00040 



0100 

0160 
0340 
0260 
0050 
1030 
1031 
1032 



00050 



2200 
0100 

4o4o 
6001 
6001 

4100 

0706 

2200 



Establish all tests 



168-2:7 



ooo6o 0300 

4100 
0251 
4lOO 
0142 
2221 
4100 
0732 

00070 0427 
4100 
0770 
2214 
4l06 
0400 
6466 
0000 

00100 7500 Add 
3321 

7315 
1006 
7101 
0120 
0500 
0707 

00110 0000 
0000 
0000 
0000 
0000 
0000 
0000 
1000 

00120 7236 
1011 
7500 Status 

3304 
7600 

6053 

1200 
7767 

00130 6003 

7700 Error (status in "A") 

0300 

2122 Check if overflow was legal 

0207 

4077 

2535 

3477 
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00140 6203 

7101 

0700 

6004 

7700 Overflow error 

7101 

OlOO 

2533 

00150 3524 
6605 
6711 
0000 
0000 
0000 

1006 

0707 Establish Add/Subtract only 

00160 2200 
0100 

4o4o 

4100 
0706 
4100 
0770 
2200 

00170 0700 
4260 
4330 
2314 
4167 
0400 
7101 
0010 

00200 7500 Subtract 
3361 
7303 
1011 

7313 
1006 
7101 
0220 

00210 0000 
0000 
0000 
0000 
0000 
0000 
0000 

1003 
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00220 



7207 
1014 
7500 
330U 
7600 
6125 
2100 
1011 



Status 



Compare for add-subtract errors 



00230 



3500 
1000 
6002 
7701 
2100 
1012 
3500 
1001 



1st word error 



00240 



00250 



00260 



00270 



6002 
7702 
2100 
1013 
3500 
1002 
6002 
7703 

7101 
0300 

7700 

6503 
0000 
0000 
0000 
0000 

2200 
0500 
4100 

0732 

4100 

0770 
4040 
2200 

0747 
4100 

0676 

0400 

7101 

0010 
0000 
0000 



2nd word error 



3rd word error 



Error (status in "A") 



Establish Shift/Normalize only 



168-2:10 



00300 



7500 
3301 
7315 
1006 
7101 
0320 
0000 
0000 



Multiply 



00310 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
1000 



00320 



00330 



7211 
1022 
7500 

3304 
7600 
6053 

7700 
7101 

0400 
1014 
0000 
0000 
0000 
0000 
0000 
0000 



Status 



Error (status in "A") 



003^0 



2200 
0300 
4040 
4100 
0706 
4100 
0770 
2200 



Establish Multiply-Divide only 



00350 



0707 
4100 
0732 
0400 

7101 

2420 
0000 
0000 
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00360 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00370 



0000 
0000 
0000 
0000 
0000 
7101 
1700 
0000 



Jump to compute result operations 



00400 



00410 



7500 
3300 

7315 
1022 
7312 
1006 
7101 
0420 

7704 
7101 
0700 

0000 
0000 
4000 
1003 
1014 



Divide 



Error (remainder £ 0) 



00420 



00430 



7225 
1031 
7500 
3304 
7600 
6430 
3711 
6003 

3313 
7700 
2100 
1003 
6107 
2100 
1004 
6104 



Status 



Error (status in W A") 



168-2:12 



00440 2100 
1005 
6431 

7700 Divide fault 

2100 Compare answers from multiplication and division 

1022 

3500 

1000 

00450 6002 

7701 1st word error 

2100 

1023 
3500 
1001 
6002 

7702 2nd word error 

00460 2100 
1024 
3500 
1002 
6002 

7703 3rd word error 
2100 

1025 

00470 6560 
2100 
1026 

6563 
2100 

1027 
6566 
6466 

00500 0404 
4100 
1032 
0400 
4145 
4146 
4203 
0410 

00510 5200 
0000 

3600 
0160 
6103 
7101 
0624 
2306 
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00520 0102 
4200 
0000 
2147 
0207 
3303 
4l47 
75OO Right shift 

00530 3303 
7372 
1033 
7270 

1003 

7500 Status 

3304 
7600 

005^0 6002 

7700 Error (status in M A") 

2147 

0207 

3333 

klk-J 

7500 Left shift 

3302 

00550 7353 
1033 
7251 
1003 

7500 Status 
3304 
76OO 
6002 

OO560 7700 Error (status in "A") 
7500 Normalize and count 
3342 
7340 

1033 
7236 
1003 
7500 Status 

00570 3304 
76OO 
6002 

7700 Error (status in "A") 
2325 
3642 
6l42 

2147 

168-2:14 



00600 0110 
0111 
1234 
3772 
6002 
7704 Shift count error 

21^5 
6002 

00610 7701 1st word error 
2146 
6002 
7702 2nd word error 

2147 
0207 
0704 
6002 

00620 7703 3rd word error 
7101 
0507 
1030 
2355 Exchange Right and Left shift EXF codes 

^375 
0601 
U36O 

00630 2200 
0660 
4100 
0516 
7101 
0500 
0370 
3302 

0O6U0 2200 
0330 
3500 
0511 
4210 
2147 
0110 
0111 

00650 1312 
3603 
7101 

o6o4 
0000 
0000 
0000 
0000 
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00660 2200 Exchange Right and Left EXF codes 
062k 
4100 
0516 
2100 
0530 
4100 
05^+7 

00670 5500 
0530 

o4oo 
6002 

0000 

7101 
0707 

0000 

00700 2200 Alter 1st operand 
0055 
5100 
1000 
6025 
7101 
0100 
2200 

00710 0055 
5100 
1001 
6506 
0407 
1100 
1002 
0707 

00720 6005 
5500 
1002 
6416 

6517 
0400 
4100 
1002 

00730 6010 
7101 
0500 
0000 
0000 
0000 
0000 
0000 
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00740 



00750 



00760 



00770 



01000 



01010 



2200 
0000 
0102 
6013 
4303 
3624 
6112 
56oo 

0000 

3600 
0000 
6114 
7101 
0775 
2213 
4316 

2317 
4100 
1003 
4100 
1004 
4ioo 
1005 
7101 

0027 
0715 
0000 
0000 
0000 
7777 
7101 
0011 



Alter 2nd operand 



Check for end of test 



Number of times test is to repeat 



End of test 



1st operand 



0040 

0000 

0000 

0000 

0000 }> 2nd operand 

0000 

0000 C 

0000 

>Sum 
0000^ 
0000^ 
0000 ^Difference 
0000 J 
0000 

0000 Product 
0000 

0000 



168-2:17 



01020 



01030 



oioUo 



0000 
0000 
0000 
0000 
0000 
0000^1 
0000 \> 
0000 J 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Quotient 



Remainder 



Shift/Normalize and count 



01050 



01060 



01070 



0000 
0000 
0000 
0001 
0000 
0000 
0000 
0000 



0000 J 

0000 n 

0000 L Sum 
0000 J 

ocxxT 

0000 
0000 
0000 



Normalized 1st operand 



> Product 



0000 

0000 

0000^1 

0000 \> Normalize and count 

0000 J 

0000^ 

0000 \> Left shift 

0000 J 



> Divide 
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01100 0000 
0000 

2200 Check result (loc 1002-1277) 
1006 Check Add result 
4205 
2200 
1061 
4204 

01110 2100 
1006 
3500 
1061 
6oo4 
0101 
7101 
1160 

01120 5643 
5710 

5707 

3600 

1064 

6515 

2200 Check Multiply result 

1014 

01130 4205 
2200 
1064 
4204 
2100 
1014 
3500 
1064 

onto 6oo4 
0101 
7101 
1160 
5617 
57io 
5707 
3600 

01150 1072 

6515 
7101 
1200 
0000 
0000 
0000 
0000 



168-2:19 



01160 



0603 

4205 
2200 
0001 
TT00 
7101 
0000 
0000 



Error indicator counter 

Error. Check "A" register for type of error 



01170 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



01200 



01210 



01220 



7500 
3342 
7356 
1003 
7255 
1061 
2200 
IO56 

4205 
2200 
1072 
4204 
2100 
1056 
3500 
1072 

6004 
0101 

7101 
1160 
5741 

5710 
5707 
3600 



Check Normalize result 



01230 



1075 
6515 
2200 
1056 
4205 
2200 

1075 
4204 



Check left shift result 



168-2:20 



012^0 



2100 

1056 
3500 

10T5 
6ook 
0101 
7101 
ll6o 



01250 



5765 
5710 
5707 
3600 

1100 

6515 
7101 

1440 



01260 



1000 

1056 

0000 

0000 
0000 
0000 
0000 
0000 



01270 



0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 



01300 



7500 
3321 

7375 

1003 
7372 
1053 

7101 
1310 



Initial operation for a compute result selection 



01310 



7500 
3335 
7363 
1006 
7260 
106^ 
2200 
1330 



Add to result 
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01320 U311 
7101 
1300 
1^ 
i6oo 

0000 
0000 
0000 

01330 7500 Multiply result 
3315 
73^3 
1006 

7237 
1072 
2200 
13^5 

013^0 4331 
7101 
1300 

0000 

0000 

7500 Normalize result 

3356 

7223 

01350 1075 
2200 

1U00 
k3kk 
7101 
1300 
0000 
0000 

01360 0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 

01370 0000 

0000 

1072 
106h 
1061 
1003 

1050 

1000 
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01400 2100 Left shift result 
1074 
1200 
7700 
0111 
0110 

4317 
7500 

01410 3316 
7326 
1370 
7223 
1100 
2200 

i44o 

4100 

01420 1257 
2332 
0110 

4335 
5100 

1077 

2200 
1310 

01430 4100 

1307 
7101 
1102 
0000 
0000 
1075 
1367 

01440 2200 Establish subtract as initial operation 
3361 

4100 
1301 
2200 

1460 
4100 
1416 

01450 7101 
1300 
0000 
0000 
0000 
0000 
0000 
0000 
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01^0 2300 Establish multiply as initial operation 
7123 

Uioo 
1300 
7500 
3301 
7351 
1003 

01^70 73^ 
1531 

72^3 
1526 
7500 
3301 
7337 
1523 

01500 733^ 
1532 
0300 
0300 
2200 
1540 

U100 
iki6 

01510 7101 
1306 
0000 
0000 
0000 
0000 
0000 
0000 

01520 0000 
0000 
0000 
0000 
0000 
0000 
0002 
0000 

01530 0000 

0004 
0000 
0000 

1527 
1520 

1526 

1000 
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01540 2200 Establish divide as initial operation 
7500 
4100 
1300 
2200 
3300 

4100 
1301 

01550 0401 
4100 

1053 
2200 
IO56 
4100 

1305 
2200 

01560 1600 
4100 
1416 
7101 
1300 
0000 
0000 
0000 

01570 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

01600 2200 Establish right shift as initial operation 
7124 
4100 
1300 
7500 
3342 
7330 
1003 

01610 7500 
3317 
7325 
1370 
2200 
2000 
4100 
1416 
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01620 2200 

1053 
4ioo 

1305 
7101 
1306 
0000 
0000 

01630 0000 
0000 
0000 
0000 
0000 
0000 
1000 

1367 

01640 7101 
o444 

0000 
0000 
0000 
0000 
0000 
0000 

01650 7500 
3301 
7316 
1700 
7500 

3356 
7213 
1650 

01660 2100 
1647 



3600 

3304 

6002 

7700 Error (multiply to normalize, 28th bit) 

7101 

1640 



01670 1672 
1645 
0001 
0000 
0000 
0000 
0000 
0004 
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01700 0401 Establish compute result test conditions 
4100 
1163 
2200 

i44o 

4100 

1257 
2200 

01710 7500 
4100 
1300 
2200 
3321 
4100 
1301 
2200 

01720 1440 
4100 
1416 
2200 
1310 
4100 
1307 
2200 

01730 1053 
4100 
1305 
2100 
1002 
0204 
6132 
0300 

01740 2200 
1232 
4100 
2023 
2200 
2300 
4100 
2245 

01750 5622 
3622 
6116 

0400 

4216 

2200 
3321 

4ioo 
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01760 2001 
2100 
1010 
0214 
6l0k 
7101 
2060 
0000 

01770 7101 
l64o 
0000 
0100 
0000 
0000 
0000 
0000 

02000 7500 Establish Add as initial operation 

733*+ 
1011 

7331 
1053 

7500 Subtract from result 
3375 

02010 7324 
1006 
7500 
3356 
7223 
1100 
2200 
2040 

02020 4100 
1257 
7101 
1232 
0000 
0000 
0000 
0000 

02030 0000 
0000 

0000 
0000 
1003 
1050 
1006 
1075 
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02040 2200 Establish subtract as initial operation 

3361 
4100 
2001 
2200 
2100 
4100 
2017 

02050 7101 
2000 
0000 
0000 
0000 
0000 
0000 
0000 

02060 2200 Establish initial conditions 
2040 
4100 
2017 
2200 

3375 
4100 
2007 

02070 2200 
2006 
4100 

2127 
5600 

0000 

7101 
1300 

02100 1010 Establish multi P 1 y a s initial operation 

0214 

6133 
7500 
3301 
7371 
1011 

02110 7354 
1531 
7263 

2173 
7500 

3301 
7357 
2170 
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02120 735^ 
1532 
2200 

4ioo 
2017 
7101 
2000 

02130 0000 
0000 
0000 
0000 
0000 
0000 
7101 
l6ho 

02140 7500 Establish divide as initial operation 

3300 

7335 
1011 

7327 
1056 
2200 
2200 

02150 4100 
2017 
7101 
2006 
0000 
0000 
0000 
0000 

02160 0000 

0000 
0000 
0000 

1526 

0000 
0000 
0000 

02170 0000 

0000 
0000 

1050 

1527 
2165 

1527 
1006 
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02200 7500 Establish right shift as initial operation 
3303 
7335 
1011 
2200 
22U0 
4100 
2017 

02210 7101 
2OO6 
0000 
0000 
0000 
0000 
0000 
0000 

02220 0000 

0400 Establish Test #4 conditions 
4100 

2075 
4100 
1772 
2200 
6430 

02230 4100 
0425 
7101 
0050 
0000 
0000 
0000 

1006 

02240 7500 Establish left shift as initial operation 

3302 

7335 
1011 
2200 
2300 
4100 
2017 

02250 7101 
2OO6 
0000 
0000 
0000 
0000 
0000 
0000 
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02260 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02270 0000 
0000 
0000 
0000 
0000 
0000 
0000 
1006 

02300 2100 Establish divide as 2nd operation 
1003 

6107 
2100 
1004 
6104 
2100 
1005 

02310 6026 
2200 
33l4 ' 
4100 

2007 

2200 
23^0 
4100 

02320 2023 
2200 
3321 
4100 
2001 
2200 
2040 
4100 

02330 2017 
7101 
2000 
0000 
0000 
0000 

7101 
l64o 



168-2:32 



02340 2100 Check divide result 
2017 

4253 
7500 
3300 
7372 
1011 
7367 

02350 1053 
7364 
1006 
7500 
3356 
7257 
2336 
2200 

02360 1075 
4205 
2200 

2333 

4204 
2100 

1075 
3500 

02370 2333 

6oo4 
0101 
7101 
1160 
5500 
1163 
57ii 

02400 5710 
3600 
2336 
6516 
2200 
I65O 
4100 
2245 

02410 2200 
2450 
4100 
2127 
7101 
2040 
0000 
0000 
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02420 2200 Establish Test #3 conditions 
6017 
4100 
0425 
0400 
7101 
0010 
0000 

02430 0000 
0000 
0000 
0000 
2333 
1003 
1050 
IOO6 

02440 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02450 7500 
3316 

7400 

7500 
3315 

7322 
1056 

2200 

02460 2006 
4100 
2127 
7101 
2OO6 
0000 
0000 
0000 

02470 0000 
0000 
0000 
0000 
0000 
0000 
0000 

1053 



02500 6436 Check sum const. 
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NUMBER: T682-2 

TITLE: AU Select Test 

CATEGORY: 160-A, 168-2 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-2 

PURPOSE 

The test checks by selecting another external equipment, whether the 168-2 can 
be interrupted at any point and upon reselection, resume operation without error. 
All of the 168-2 status replies are also checked. 

DESCRIPTION 

Tests all 168-2 functions by intermixing them with paper tape reader codes and 
I/O instructions. Errors are detected by using fixed operands. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 
Paper Tape 

0000 

1014 

0160 

0000 



ADDITIONAL INSTRUCTIONS: 



HALTS 

7777 
7700 
770X 



1) Turn on the 350 reader. 

2) Set A to the desired number of runs through the 
test. 

3) Position all SLS switches up. 

4) Place a loop of tape in the reader. 

EXPLANATION 

P=1011 End of test. 

Status error. 

X = number of word on which error occurred. 
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168-2 SELECT TEST 



00000 



00010 



00020 



00030 



00040 



00050 



6l04 
4020 
7101 
0100 
4021 
0400 
4020 
7101 

0100 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0001 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Clear Counter 

Store New Count 
Clear Counter 



Counter 
Count 
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00060 



00070 



00100 



00110 



00120 



00130 



0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




7500 
3302+ 
7600 
6002 




7700 


Status Error 


7500 
3300 


Select Divide 


7^1^ 


1st Word 


7 i Hk 


2nd Word 


7i)O0 


3rd Word 


71+00 


4th Word 


7^00 


5th Word 


7^00 


6th Word 


7^02 


7th Word 


7^02 


8th Word 


7too 


9th Word 


7600 
0706 
6002 




7701 
76OO 
6002 


Error 


7702 
7600 


Error 


6002 




7703 
76OO 
6002 


Error 


7701+ 
7600 
6002 


Error 


7705 


Error 
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00140 



00150 



00160 



00170 



00200 



00210 



7600 




6002 




7706 


Error 


7500 




3301 


Multiply 


7402 


1st Word 


7402 


2nd Word 


7401 


3rd Word 


7406 


4th Word 


7400 


5th Word 


7400 


6th Word 


7600 




0714 




6002 




7701 


Error 


7600 




0714 




6002 




7702 


Error 


7600 




0706 




6002 




7703 


Error 


76OO 




0700 




6002 




7704 


Error 


76OO 




6002 




7705 


Error 


76OO 




6002 




7706 


Error 


7500 




3321 


Add. 


7406 


1st Word 


7406 


2nd Word 


7401 


3rd Word 


7401 


4th Word 


7^-01 


5th Word 


7401 


6th Word 


76OO 




0707 




6002 




7701 


Error 


7600 




0707 




6002 
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00220 



00230 



002U0 



00250 



00260 



002T0 



7702 


Error 


7600 




0702 




6002 




7703 


Error 


7500 




3361 


Subtract 


■jko6 


1st Word 


7ko6 


2nd Word 


7^01 


3rd Word 


JkOl 


4th Word 


7^01 


5th Word 


ihOl 


6th Word 


7600 




0705 




6002 




7701 


Error 


760O 




0705 




6002 




7702 


Error 


76OO 




6002 




7703 


Error 


7500 




3302 


Left Shift 


fkOk 


1st Word 


7^0U 


2nd Word 


jklk 


3rd Word 


7600 




0711 




6002 




7701 


Error 


7600 




0710 




6002 




7702 


Error 


76OO 




0700 




6002 




7703 


Error 


7500 




3303 


Right Shift 


7^02 


1st Word 


7^02 


2nd Word 


7^12 


3rd Word 


76OO 




0701 
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00300 



00310 



00320 



00330 



00340 



00350 



6002 




7701 


Error 


7600 




0701 




6002 




7702 


Error 


7600 




0701 




6002 




7703 


Error 


7500 




3300 


Divide 


7500 




4102 


See Reader 


7600 




7500 




3310 


Reselect 


7414 


1st Word 


7414 


2nd Word 


7500 




4102 




7600 




7500 




3310 


Reselect 


7400 


3rd Word 


7400 


4th Word 


7400 


5th Word 


7400 


6th Word 


7500 




4102 




7600 




7500 




3310 


Reselect 


7402 


7th Word 


7402 


8th Word 


7400 


9th Word 


7500 




3304 




7600 




7500 




6002 




7700 


Status Error 


7500 




3310 




7600 




0706 




6002 




7701 


Error 
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00360 



00370 



00400 



00410 



00420 



00430 



7500 




4102 




7600 




7500 




3310 


Reselect 


7600 




6002 




7702 


Error 


7600 




6002 




7703 


Error 


7500 




3304 




7600 




0720 




6001 




7700 


Status Error 


7500 




3310 


Reselect 


7600 




6002 




7705 


Error 


7500 




4102 




7600 




7500 




3310 


Reselect 


7600 




6002 




7706 


Error 


7500 




3301 


Multiply 


7500 




4102 




7600 




7500 




3310 


Reselect 


7402 


1st Word 


7402 


2nd Word 


7401 


3rd Word 


7500 




4102 




7600 




7500 




3310 


Reselect 


7406 


4th Word 


7400 


5th Word 


7400 


6th Word 
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00440 



00450 



00460 



00470 



00500 



00510 



7500 
4102 
7600 
7500 
3310 
7600 
0714 
6002 

7701 
7500 
4102 
7600 
7500 
3310 
7600 
0714 

6002 
7702 
7500 
3304 
7600 
0720 
6002 
7700 

7500 
3310 
7600 
0706 
6002 
7003 
7600 
0700 

6002 
7704 
7500 
4102 
7600 
7500 
3310 
7600 

6002 
7705 
7600 
6002 
7706 
7500 
3321 
7500 



Reselect 



Error 



Reselect 



Error 



Status Error 
Reselect 

Error 

Error Fourth Word 

Reselect 

Error 5th Word 

Error 6th Word 

Add 
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00520 



00530 



00540 



00550 



00560 



00570 



4102 






7600 






7500 






3310 


Reselect 




7406 


1st Word 




7406 


2nd Word 




7500 






4102 






7600 






7500 






3310 


Reselect 




7401 


3rd Word 




7401 


4th Word 




7500 






4102 






7600 






7500 






3310 






7401 


5th Word 




7401 


6th Word 




7500 






3304 






7600 






0720 






6002 






7700 


Status Error 




7500 






3310 






7600 






0707 






6002 






7701 


Error 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0707 






6002 






7702 


Error 




7600 






0702 






6002 






7703 


Error 




7500 






3361 


Subtract 




7500 
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00600 



00610 



00620 



00630 



00640 



00650 



4102 




7600 




7500 




3310 




74o6 


1st Word 


7406 


2nd Word 


7401 


3rd Word 


7500 




4102 




7600 




7500 




3310 




7401 


4th Word 


7401 


5th Word 


7401 


6th Word 


7500 




3304 




7600 




0720 




6002 




7700 


Status Error 


7500 




3310 




76OO 




0705 




6002 




7701 


Error 


76OO 




0705 




6002 




7702 


Error 


7500 




4102 




7600 




7500 




3310 


Reselect 


7600 




6002 




7703 


Error 


7500 




3302 


Left Shift 


7500 




4102 




7600 




7500 




3310 


Reselect 


7404 


1st Word 


7404 


2nd Word 
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00660 



00670 



00700 



00710 



00720 



00730 



7414 


3rd Word 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0711 






6002 






7701 


Error 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0710 






6002 






7702 


Error 




7600 






0700 






6002 






7703 


Error 




7500 






3303 






7500 






4102 






7600 






7500 






3310 


Reselect 




7402 


1st Word 




7402 


2nd Word 




7412 


3rd Word 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0701 






6002 






7701 


Error 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 
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00740 



00750 



00760 



00770 



01000 



01010 



0701 
6002 
7702 
7500 
4102 
7600 
7500 
3310 

76OO 
0701 
6002 
7703 
7500 
3300 
74l4 
74l4 

74l4 
74l4 
74l4 
7404 
7400 
7400 
7400 
7500 

3304 
7600 
36OO 
4040 
6002 
7700 
5420 
2021 

3420 
6005 
7500 
3301 
7101 
0100 
7500 
3300 

0400 

7777 
7101 
0000 

5262 



Error 



Reselect 



Error 



1st Word 
2nd Word 

3rd Word 
4th Word 
5th Word 
6th Word 
7th Word 
8th Word 
9th Word 



Advance Counter 



Compare to Count 



End of Test 
Check Sum 
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NUMBER: T002-B 

TITLE: Memory Test for 169 Memory Unit 

CATEGORY: 160 -A, 169 

MINIMUM EQUIPMENT NEEDED: 160 -A, 169 

PURPOSE 

Tests any arbitrary number of bank, up to the maximum number present in the 160 -A 
computer or a 160 -A, 169 system. 

DESCRIPTION 

The program may be located in any bank. The next bank in sequence will be tested by, 
having the worst pattern stored in it, checking the pattern, then storing and checking the 
compliment worst pattern. The program then transfers itself to the bank which has been 
tested, and the test progresses through the memory. 

The program checks itself, via a checksum subroutine upon starting a new bank, and 
prior to transferring itself to the next bank in sequence. If the checksum is not correct 
an error stop will occur. This condition is indicated by: 

P = 1073 A = bits failing in program Z = 0000 (green background) 

The MCS mode indicator shows which bank the program is in. The program will stop if 
any error occurs while checking worst pattern or its compliment with: 

P = 0101 A = bits failing in worst pattern Z = 7700 (green background) 

If the computer is placed in run again it will stop with: 

P = 0103 A = address failing in worst pattern Z = 7777 (green background) 

The bank being tested will be indicated by the MCS mode indicator when the IND button 
is pressed. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 



OPERATING INSTRUCTIONS 



Paper Tape 

rOOOO 

r0175 



INPUT PARAMETERS 

r = Relative bank selected. When starting 
the program it is necessary to set the 
relative bank selection only. 
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CHECK SUM: 



0002 



The direct and indirect bank selections 
are set automatically by the program. 



STARTING ADDRESS: 0000 



ADDITIONAL INSTRUCTIONS: When starting the program the first time after it has 
been loaded from the paper tape, the highest bank number present must be entered in 
the A register. The next time the program is started, the A register may be clear, 
and the highest bank number used previously will be saved. 



HALTS 
0051 7701 

0050 7702 

0045 7704 



EXPLANATION 

Selective Stop 1. The computer will stop every time a new 

pattern is stored in the bank being tested. 

Selective Stop 2 . Computer will stop when worst pattern (not 
the compliment pattern) is stored in the bank being tested. 

Selective Stop 4. Computer will stop when worst pattern (not 
the compliment pattern) is stored in bank 1. At this time the 
program is located in bank 0. 

NOTE: Selective stops may be selected in any desired combina- 
tion. 
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T002 B 

MEMORY TEST FOR 160-A COMPUTER AND 169 AUXILIARY MEMORY 



0000 


0207 


0001 


6003 


0002 


0601 


0003 


4271 


0004 


7100 


0005 


0143 


0006 


0130 


0007 


0207 


0010 


0601 


0011 


1474 


0012 


6002 


0013 


1474 


0014 


0320 


0015 


4201 


0016 


(0000) 


0017 


0400 


0020 


4076 


0021 


0400 


0022 


4077 


0023 


2076 


0024 


4177 


0025 


5477 


0026 


6011 


0027 


0277 


0030 


6003 


0031 


0207 


0032 


6407 


0033 


2476 


0034 


4076 


0035 


7101 


0036 


0023 


0037 


2476 


0040 


4172 


0041 


6310 


0042 


0130 


0043 


0207 


0044 


6104 


0045 


7704 


0046 


0001 


0047 


0001 


0050 


7702 


0051 


7701 


0052 


0400 


0053 


4077 


0054 


2076 


0055 


1577 



Get Number of Highest Bank 



Enter Check Sum Subroutine 



Set IND to Next Bank in Sequence 



(Locations in parentheses are normally modified by the 
computer during execution of the program) 



Write Pattern in Bank 
Locations 0000 through 7776 



Store Pattern at Location 7777 
Determine Stop Options 



Selective Stop 4 



Selective Stop 2 
Selective Stop 1 



Stop on Full Cycle thru Max. No. of bank 



Stop on Every Bank 
Stop on Every Pattern 
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0056 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 



6122 
5477 
6026 
0277 
6003 
0207 
6410 
2476 
4076 
7101 



Check Pattern 



0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 



0054 

0000 

7777 

0170 

(0000) 

0176 

(0000) 

(0077) 



Constant = 7777 

Check Sum Adjustment 

Highest Bank Number Allowable + 1 

Constant = Number of Words in Program 

Test Word 

Test Address 



0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 

0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 



2177 
7700 
2077 
7777 
7101 
0057 
2476 
6567 

7100 
0143 
4077 
7710 
0006 
0130 
0207 
0320 



Error Stop - Indicate Bits Which Failed 

Stop - Indicate Location of Failure 
Check Next Word 



Repeat Program for Both Patterns 

Enter Check Sum Subroutine 
When Both Patterns are Checked 

Test Selective Jump for Bank Change 



0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 



4212 
0320 
0601 
1474 
6002 
1474 
0320 
4205 



Set Bank Change Instructions 



0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 



0330 
4210 

(0000) 
2177 

(0000) 
4177 
5477 
1475 
6506 



Transfer Program to Next Bank 
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0141 


(0000) 


0142 


7101 


0143 


(0000) 


0144 


0130 


0145 


0207 


0146 


0360 


0147 


4201 


0150 


(0000) 


0151 


0400 


0152 


4016 


0153 


4321 


0154 


4320 


0155 


4314 


0156 


4306 


0157 


4300 


0160 


4077 


0161 


2177 


0162 


5300 


0163 


5477 


0164 


1475 


0165 


6504 


0166 


2723 


0167 


3474 


0170 


5300 


0171 


0702 


0172 


6430 


0173 


0000 


0174 


6501 


0175 


6433 



Jump to Next Bank 

Exit Check Sum Subroutine 

Entrance Check Sum Subroutine 



Set All Bank Selections Same as Relative 
Clear All Locations Modified by Program 

Clear Previous Check Sum 

Set Initial Address 

Form Check Sum in Location 07777 



Subtract Exit Address from Check Sum 

Subtract Maximum Bank Number +1 from Check Sum 



Exit if Check Sum is OK 
Check Sum Error 
Hang up on Check Sum Error 
Unless A Register is Cleared 
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NUMBER: T690 

TITLE: Auxiliary Memory Buffer Interrupt Test 

CATEGORY: 169, 160-A 

MINIMUM EQUIPMENT NEEDED: 169, 160-A, 161 

PURPOSE 

This test is used to check the 169 I/O Buffer operation. 

DESCRIPTION 

The test uses the T033 memory worst pattern to check the ability of the memory to 
hold alternate ones and zeros. Checks for a buffer complete interrupt (line 30), and 
reads the buffer entrance register (BER) during the buffer operation. Program and 
output in X odd, pattern in Y even. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape INPUT PARAMETERS (Register Settings, etc.) 

LOADING ADDRESS: 0000 1st portion of program is loaded in bank 0: 

TERMINAL ADDRESS* 0027 Sets up a11 initia l conditions and bank selections. 

2nd portion is loaded in any odd bank of Module 
CHECK SUM; 2704 „ lv , _ Q , „ M 

X (X = 1, 2, 3). Before running the program, 

enter in "A" register the number of the odd 

bank used. 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 1) The 169 is connected to the normal or buffer channel 
of the 160-A with the 161 typewriter connected to the External Buffer Channel. 2) If 
Selective Jump (SLJ1) is used the Output Buffer area will be the same length as the Input 
Buffer area. If SLJ1 is not used the Output Buffer length will be determined by the pro- 
gram and will repeat. 

HALTS EXPLANATION 

SLS1 Computer will stop every time a new pattern is stored in the even bank 

of Module X. 
SLS2 Computer will stop after an Input Buffer has been set up in the 169. 

NOTE: If an interrupt is received by the computer with any of the 
Selective Stops used, the computer will stop. 
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PART 1 



00000 



00010 



00020 



0206 

036 

4201 

0000 

0341 

4174 

4177 

030 



■} 

L 

}} 

'3j 



4173 

1600*1 

4020 > 

4176J 

0310 

4175 

1600 

4000 



> 



4210J 

0400^ 

4030 }» 

4067J 

7500\ 

4702J 

2200-1, 

0200/ 



Make bank selection even 
Set DIR and IND to odd bank 

Preset even bank selections 

Preset odd bank selections 

Preset output area bank 
Preset input area bank 

Preset bank jump 

Preset counts to zero 

Master Clear external BFR 
Set bank jump address 



BK 
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Start 
00000 



00010 



00020 



00030 



00040 



00050 



0000 BKX 



4056 

2054 

4057 

2056 

4157 

5457 

6011- 

0277 



6003—1 

0207 

6407 

2456 *J 

4056 

7101 

0003 

2456"*— 



4155 
7701 
2054 
4057 
2056 
1557 
7101 
0060 

0200 
7101 
0100 
0207 
6410 
2456 
4056 
7101 



0024 
2456 
7101 
0000 
0010 
7700 
2157 
770 



} 

;} 



205 
7702 "t 
7101 / 
0061 
0000 
7777 
0000 
0000 



PART 2 

Set initial data 
Set start address 

Finished setting pattern 



Optional stop 



INT 



Error stop 

Non- comparing bits in "A" 

Data in "A" 
Address in "A" 



Starting address 

Data 

Current address 
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00060 



00070 



00100 



00110 



00120 



00130 



6513 
5457 
6421 
0277 
6427 
7101 
0033 
0000 

0000 

0230 

0231 

0111" 

0207 

0213 

0227 

0235. 

7707 
4067 
7500 
4740 
7600 
1200 
4000 
6102 

7700 
0023 
2070 
0220 
3200 
0130 
4202 
7710 

0000 
7101 
0217 
0000 
0000 
0000 
0000 
0000 

7500 
4704 
7600 
1971 
6044 
1571 
4172 
7101 



Error detection 

to 0035 

"A" Worst pattern INT 
"A" Input or Output INT 

Later change 



-*■ 00 2X X = odd bank 
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00140 



0217 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00150 



7101 
0200 
0000 
0000 
0000 
0000 
0000 
0000 



00160 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00170 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00200 



7500 
4701 
7310 
0217 
7702 
4070 
2067 
0022 



■*• ZY Y = even bank 



00210 



0120 
7030 
0213 
4013 
0300 
1423 
4220 
7500 



40 IX X = odd bank 



input 
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00220 



4701 
7305 
0233 
7101 
0233 
0000 
0227 
4003 



400X X = odd bank 



00230 



0300 
1500 
4210 
4070 
2067 
0022 
0120 
7030 



Output 



ZY 



Y - even bank 



169:12 



NUMBER: T170 

TITLE: Punch Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 
This program checks the punch controller and the control unit. 

DESCRIPTION 

Section 1, checks all status conditions. This is a looping status test in which the 
operator can manually cause a NOT READY to determine if the proper response for a 
specific condition will occur. The manual status errors can be caused by the following: 

1. Depress the stacker full switch 

2 . No cards in hopper 

3. 523 power off 

4. M. S. switch in 1604 position 

Section 2, punches all columns of a card with a pattern that can be visually checked. 
The program will punch one card pattern for all cards. The program will continue to 
run until a NOT READY is detected. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0224 

CHECKSUM: 0170 

STARTING ADDRESS: Sec. 1, P = 0000 A = 0001, Sec. 2, P = 0000 A = 0000 

HALTS EXPLANATION 

7700 Sec. 1 Status Test: When a NOT READY occurs the computer will 

stop and (A) will hold the status response that caused the stop. 

7701 Sec. 2 Status Stop: (A) will contain the status that caused the stop. 

After the error condition has been removed, return the computer to 
"RUN" to continue. 
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Sample card 
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0000 



0010 



0020 



0030 



0040 



0050 



3203 


ADF 


(A) + J 


4201 


STF 


set jump address 


7101 


JFI 


jump address 


7102 




J 


0014 


M.L. 


, of punch data 


0006 


M.L. 


, of status 


7505 


EXF 


status S 


7600 


INA 


set (A) = status 


6402 


ZJB 


wait for not ready 


7700 


SLS 


display status 


6504 


NZB 


continue status test 


3040 




S (status) 


7536 


EXF 


status 


7600 


INA 


set (A) = status 


6003 


ZJF 


jump on ready 


7701 


SLS 


display not ready 


6504 


NZB 


check status again 


7532 


EXF 


select punch 


7332 


OUT 


output punch data 


0224 


terminal address 


7526 


EXF 


status 


7600 


INA 


set (A) = status 


6502 


NZB 


wait for ready 


2055 


LDD 


delay count (D) 


0601 


ADN 




6501 


NZB 


delay if (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2056 


LDD 


(CDC) 


5055 


RAD 


decrease delay 


7101 


JFI 




0015 




punch again 


3040 




status code 


3002 




punch code 


0100 


start M.L. of output block 


0000 




(D) 


0100 


constant delay change 


5565 


check sum equalizer 



0060 



0070 



0100 



0110 



0120 



0130 



0005 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0001 
6000 
0000 
0000 
0000 
0007 
2520 
0002 

1400 
0000 
0000 
0000 

0070 

5240 
0004 
0300 

0000 
0000 
0000 
0700 
2520 
0010 
0060 
0000 

0000 
0000 
7000 
5240 
0020 

0014 
0000 
0000 



Row 9 



Row 8 



Row 7 



Row 6 



Row 5 
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0140 0007 0220 7000 

0000 0000 

2520 0000 

0040 Row 4 5240 

0003 
0000 
0000 
0070 

01 50 0000 
5240 

01 00 Row 3 
0000 
6000 
0000 
0700 
0000 

01 60 2520 

0200 Row 2 

0000 

1400 

0000 

7000 

0000 

5240 

0170 0400 Row 1 
0000 
0300 
0007 
0000 
0000 
2520 
1000 Row 

0200 0000 
0060 
0070 
0000 
0000 
5240 

2000 Row 11 
0000 

0210 0014 
0700 
0000 
0000 
2520 

4000 Row 12 
0000 
0003 
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NUMBER: T072 

TITLE: Reader Test (1610) 

CATEGORY: 160-A, 1610 (IBM 533, 521, 088) 

MINIMUM EQUIPMENT NEEDED: 160-A, 1610 (IBM 533, 521, 088) 

PURPOSE 
This test will check the capability of the card reader. 

DESCRIPTION 

1. The test will cause a simultaneous reading from the first and second stations. 

2. The status of the card reader is checked before each reading cycle is initiated. 

3. All information read is compared with a block of known information in storage. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0066 
CHECK SUM: 6706 

STARTING ADDRESS: 0060 

ADDITIONAL INSTRUCTIONS: 1) Loads the information from two cards into storage. 

2) Start program. 

3) Information following will be -compared with the 
first two cards read in. 



HALTS 

7701 
7702 
7703 
7704 
7705 



EXPLANATION 

Correct information to be compared in A 
Actual information read in A 
First and second card read in stop 
Punch status - not ready 
Reader status - not ready 
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160/160-A READER TEST (IBM 533) 



0000 


7541 


Select input status 


0001 


7600 


Input to A 


0002 


1047 




0003 


6002 




0004 


7705 


Stop if not ready 


0005 


7532 


Select read 


0006 


7232 


Input 


0007 


0450 




0010 


2450 


Load comp of 0224 


0011 


4051 


Store word counter 


0012 


2040 


0100 to A 


0013 


4052 


Store 0100 


0014 


0400 


Load A with 0's 


0015 


2053 


7100 to A 


0016 


4054 


Store at 0054 


0017 


2152 


Put info at 0100 in A 


0020 


155^ 


Logical sum of 0100 and 7100 


0021 


6002 




0022 


6107 




0023 


5452 


Add 1 to new info word 


0024 


5454 


Add 1 to old info word 


0025 


5451 


Add 1 to words compared coun 


0026 


4051 




0027 


6427 


Exit to status check 


0030 


6511 


Exit to compare next word 


0031 


2154 




0032 


7701 


Stop - Old info in A 


0033 


2152 




0034 


7702 


Stop - New info in A 


0035 


0401 


Load A with 1 


0036 


6536 


Exit to status check 


0037 


0303 


Read 1st and 2nd select code 


0040 


0200 


Start Store 


0041 


0340 


Status select code 


0042 


0000 




0043 


0000 




0044 


0000 




0045 


0000 




0046 


0000 




0047 


0021 
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0050 0250 Number words to be compared 

0051 0000 Counter for words compared 

0052 0000 New info add 

0053 7100 Old info start address 

0054 0000 Old info addres* 

0055 0000 

0056 0000 

0057 0000 

0060 7506 Select input 

0061 7204 Input 

0062 7350 

0063 7703 Stop 

0064 6564 Exit to status check 

0065 7100 

0066 0303 Read 1st and 2nd select code 



NOTE: When running this program in the 160-A all stop switches must be up. 
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NUMBER: T072 

TITLE: Punch Test (1610) 

CATEGORY: 160-A, 1610, (IBM 533, 521, 088) 

MINIMUM EQUIPMENT NEEDED: 160-A, 1610, (IBM 533 or 521 or 088) 

PURPOSE 
This test will check the capability of the punch. 

DESCRIPTION 

1. This test will cause the punch to pattern the information contained within the 
block of address from 7100 through 7223. 

2. After punching the card information may be verified by the Card Test. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0100 
TERMINAL ADDRESS 0114 
CHECK SUM: 6706 

STARTING ADDRESS: 0100 
ADDITIONAL INSTRUCTIONS: All stop and jump switches must be up. 

HALT EXPLANATION 

7704 Punch status - not ready. 
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160/160-A PUNCH TEST (IBM 533) 



0100 751^ Select output status 

0101 76OO Input status to A 

0102 1211 

0103 6002 

0104 7704 Stop if punch not ready 

0105 7505 Select punch 

0106 7303 Output 

0107 7224 

0110 6510 Exit to status check 

0111 7100 Starting address 

0112 3002 Punch select 

0113 2200 

0114 3040 Punch status 
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NUMBER: T1610 

TITLE: 1610 Two Station Read Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

A test of the card reader to insure that it will read a constant pattern simultaneously 
at two read stations. 

DESCRIPTION 

The program reads two read stations, and will compare information with the known 
pattern loaded at address 7100 through 7347. The loaded information will be used to 
check all subsequent information. 

Information is stored at address 0200 through 0447. 

The program may be modified to read and check only one station as follows: 





0007 






0324 




0037 




or 


0301 for read A 

0302 for read B 




0050 






0124 




0062 






7224 




0066 




or 


0301 for read A 

0302 for read B 




OPERATING INSTRUCTIONS 


LOAD INSTRUCTION: 


Paper 


Tape 






LOADING ADDRESS: 


0000 








TERMINAL ADDRESS: 


0066 








CHECK SUM: 


2574 








STARTING ADDRESS: 


0060 









ADDITIONAL INSTRUCTIONS: 1. Manual scan the pattern to verify that program 

information agrees with the card information. 
2. Reset Run switch. 
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HALTS EXPLANATION 

7701 Error, correct information in A 

7702 New information in A 

7703 Reading known pattern and storing between 7100 and 7347 

Reset Run switch 
7705 Status in A 

NOTE: In case of an error stop, 0052 will contain the 
address of the information which failed. 



1610:8 



Check Reader 


0000 


751*1 


0001 


7600 


0002 


615I4 


0003 


7531+ 


0001+ 


610J4 


0005 


7233 


0006 


0150 


0007 


6507 


0010 


2J+50 


0011 


V>51 


0012 


20I+0 


0013 


1+052 


0011+ 


01400 


ooi5 


2053 


0016 


I+051+ 


0017 


2152 


0020 


1551+ 


0021 


6002 


0022 


6107 


0023 


51+52 


0021+ 


51+51; 


0025 


51i5l 


0026 


1+051 


0027 


61+22 


0030 


6511 


0031 


2151+ 


0032 


7701 


0033 


2152 


0031+ 


7702 


0035 


OiiOl 


0036 


6U2 


0037 


0303 


qplio 


0200 


00I4I 


03I+0 


001+2 


0000 


001*3 


0000 


002j.it 


0000 


001^5 


0000 


00I+6 


0000 


001+7 


0021 


0050 


0250 


0051 


0000 


0052 


0000 


0053 


7100 


005J4 


0000 


0055 


0000 


0056 


7707 


0057 


6121 



0060 


7506 


0061 


7201+ 


0062 


7350 


0063 


7703 


0064 


6nll 


0065 


7100 


0066 


0303 


0067 




thru 


0000 


0077 




0100 


7500 


0101 


0303 


0102 


7203 


0103 


oh5o 


0101+ 


7102 


0105 


0200 


0106 


0000 
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NUMBER: T1610-1 

TITLE: Q.A. Test (1610) 

CATEGORY: 160-A, 1610 (IBM 088, 523) 

MINIMUM EQUIPMENT NEEDED: 160 A, 1610 (IBM 088, 523) 

PURPOSE 

These routines provide a program to test the functional capabilities of the card reader 
under a variety of conditions. 

DESCRIPTION 

The test sections are listed by numbers as follows: 

"0" PUNCH 523 STATUS TEST 

This section runs until a status error occurs. A loop back in the test permits the 

operator to manually cause a not ready condition. 

"1" READER 088 STATUS TEST 
Same as section "0". 

"2" PUNCH TEST 

This test section punches two separate patterns on two cards with a delay between 

each set of two cards. 

"3" CHANGE PUNCH TEST DELAY 
This section replaces the delay constant. 

"4" READER PRIMARY TEST 

This section reads primary cards and checks the data. If a pattern other than the 
punch pattern is to be checked, use sections "7" or "10" to store the pattern desired. 
Clear and restart from 0000. 

"5" READER SECONDARY TEST 

Same as test section "4" but using the secondary read station. 

"6" CHANGE READER TEST DELAY 
This section replaces the delay constant. 

"7" CHANGE PUNCH PATTERN AUTOMATICALLY 

Two cards are read from the primary read station and stored as the new pattern. To 
punch this new pattern return to RUN after the 7777 stop. To read the new pattern, 
master clear after the 7777 stop and select the read program desired. 
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"10" CHANGE PUNCH PATTERN MANUALLY 



A stop will occur after each word has been stored. Continue until Z = 7777 at which 
time two card images have been stored. A return to RUN will cause a return to the 
PUNCH test. To go to another test, master clear when Z = 7777, then restart. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



HALTS 


SECTION 


7701 


"0" 


7702 


"0" 


7703 


ii -I ii 


7777 


"3" 


7704 


"4" 


7705 


"4" 


7706 


"4" 


7777 


"6" 


7700 


"10" 



OPERATING INSTRUCTIONS 
Paper Tape 
0000 
1610 
0000 Set A equal to the test section desired. 

EXPLANATION 

Wrong printer status (4XXX missing) 

Wrong punch status in A 

Wrong reader status in A 

Enter A with delay N, RUN 

Read word in A 

Correct word in A 

Card word number in A 
Return to RUN after an error 

Enter A with delay N, RUN 

Enter the pattern in A, RUN 
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H* Li* 



0000 


3214 ADF 


0001 


4201 STF 


0002 


7105 JFI 


0003 


0100 


0004 


0120 


0005 


0130 


0006 


0211 


0007 


0230 


0010 


0235 


0011 


0350 


0012 


0361 


0013 


0404 


0014 


7101 


0015 


0000 


0016 


0000 


0017 


0000 


0020 


4000 


0021 


0004 


0022 


0440 


0023 


0440 


0024 


0564 


0025 


0740 


0026 


0740 


0027 


0600 


0030 


0600 


0031 


0724 


0032 


0001 


0033 


0000 


0034 




0035 




0036 




0037 




0040 




0041 




0042 




0043 




0044 




0045 




0046 




0047 




0050 




0051 




0052 




0053 




0054 




0055 




0056 




0057 




0060 




0061 




0062 




0063 




0064 




0065 




0066 




0067 





form Program jump 



(0) Punch Status Test 

(1) Reader Status Test 

(2) Punch Test 

(3) Change Punch delay 

(4) Reader Test Primary 

(5) Reader Test Secondary 

(6) Change Reader delay 

(7) Change Punch Pattern Auto 
(10) Change Punch Pattern Manual 
Jump Constant 



Hold status address 
Delay max. N 
Data A initial (DAI) 
Data A constant (DAC) 
Data A max. (DAM) 
Data read initial (DRI) 
Data read constant (DRC) 
Data B initial (DBI) 
Data B constant (DBC) 
Data B max. (DBM) 
Delay 
Delay Temporary 



1610:13 



M. L. 



0070 








0071 








0072 








0073 








0074 








0075 








0076 








0077 








0100 


7500 


EXC 


Punch Status 


0101 


3040 




Status code 


0102 


7600 


1NA 


Input Status 


0103 


4020 


STD 


Hold Status 


0104 


1200 


LPC 


Mask printer status 


0105 


4000 




Constant 


0106 


6103 


NZF 


Jump if printer not rdy. 


0107 


7701 


SLS 


Wrong printer status 


0110 


6410 


ZJB 


Retry 


0111 


2020 


LDD 


Status 


0112 


1200 


LPC 


Mask out printer status 


0113 


3777 




Mask constant 


0114 


6414 


ZJB 


Status O.K. loop 


0115 


7702 


SLS 


Wrong punch status 


0116 


6516 


NZB 


Retry 


0117 


0000 




Spare 


0120 


7500 


EXC 


Reader Status 


0121 


0340 




Status code 


0122 


7600 


INA 


Input status 


0123 


6403 


ZJB 


Status O.K. loop 


0124 


7703 


SLS 


Wrong reader status 


0125 


6505 


NZB 


Retry 


0126 


0000 




Spare 


0127 


0000 




Spare 


0130 


7500 


EXC 


Punch Test 


0131 


3040 




Status code 


0132 


7600 


INA 


Input Status 


0133 


4020 


STD 


Hold Status 


0134 


1200 


LPC 


Mask printer status 


0135 


4000 




Mask constant 


0136 


6103 


NZF 


jump if printer not rdy. 


0137 


7701 


SLS 


Wrong printer status 


0140 


6410 


ZJB 


Retry 


0141 


2020 


LDD 


Load Status 


0142 


1200 


LPC 


Mask out printer status 


0143 


3777 




Mask constant 


0144 


6514 


NZB 


Retry 


0145 


7500 


EXC 


Select punch 


0146 


3002 




Punch code 


0147 


7340 


OUT 


Output data (A) 


0150 


0564 




Terminal address 


0151 


7500 


EXC 


Select status 


0152 


3040 




Status code 


0153 


7600 


INA 


Input status 


0154 


4020 


STD 


Hold Status 


0155 


1200 


LPC 


Mask printer status 


0156 


4000 




Mask constant 


0157 


6003 


ZJF 


Jump if printer not rdy. 
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0160 


7701 


SLS 


Wrong printer status 


0161 


6410 


ZJB 


Retry 


0162 


2020 


LDD 


Load Status 


0163 


3705 


SBB 


Check ready- 


0164 


6512 


NZB 


Wait ready- 


OI65 


7540 


EXF 


Select punch 


0166 


7322 


OUT 


Output data (B) 


OI67 


0724 




Terminal address 


0170 


2032 


LDD 


Delay load 


0171 


4033 


STD 


Store dt 


0172 


0400 


LDN 


Clear (A) 


0173 


0601 


ADN 




017^ 


6501 


NZB 


Delay 


0175 


2033 


LDD 


Load dt 


0176 


0701 


SBN 


(dt) - 1 


0177 


4033 


STD 


Restore ( (dt) - 1) 


0200 


6506 


NZB 


Contine delay 


0201 


5432 


AOD 


Increase delay 


0202 


3421 


SBD 


Delay - (delay max.) 


0203 


6103 


NZF 


Delay ± max. 


0204 


0401 


LDN 


Max. limit made 


0205 


4032 


STD 


Restore delay 


0206 


7115 


JFI 


Go to Punch 


0207 


0440 




Start address data (A) 


0210 


0600 




Start address data (B) 


0211 


0400 


LDN 


Clear (A) register 


0212 


7777 


HLT 


Enter delay in (A) 


0213 


6004 


ZJF 


If A = 


0214 


4021 


STD 


Set N 


0215 


7101 


JFI 


Go to restore delay 


0216 


0204 






0217 


0501 


LCN 


Load - 1 


0220 


4021 


STD 


Set N max. 


0221 


7101 


JFI 


Go to restore delay 


0222 


0204 






0223 


0130 




Punch address 


0224 


0000 




Spare 


0225 


3002 




Punch 


0226 


5217 




Ck. sum equalizer 


0227 


0000 




Spare 


0230 


2200 


LDC 


Load primary select 


0231 


0301 




Constant 


0232 


4214 


STF 


Set select code 


0233 


4246 


STF 


Set select code 


0234 


6105 


NZF 




0235 


2200 


LDC 


Load secondary select 


0236 


0302 




Constant 


0237 


4207 


STF 


Set select code 


0240 


4241 


STF 


Set select code 


0241 


7500 


EXC 


Reader status 


0242 


0340 




Constant 


0243 


7600 


INA 


Input status 


0244 


6503 


NZB 


Wait rdy. 


0245 


7500 


EXC 


Select read 


0246 


0301 




Select code 


0247 


7277 


INP 


Input data (RA) 
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0250 


1064 




Terminal address 


0251 


2023 


LDD 


Load D. A. C. 


0252 


4022 


STD 


Set DAI 


0253 


2026 


LDD 


Load DRC 


0254 


4025 


STD 


Set DRI 


0255 


2122 


LDI 


Load data from DAI 


0256 


3525 


SBI 


Sub. data from DRI 


0257 


6011 


ZJF 


Jump on no error 


0260 


2125 


LDI 


Load read data 


0261 


7704 


SLS 


Display error word 


0262 


2122 


LDI 


Load correct data 


0263 


7705 


SLS 


Display correct data 


0264 


2025 


LDD 


Load error address 


0265 


3600 


SBC 


Form card word position 


0266 


0740 




Constant 


0267 


7706 


SLS 


Display word number 


0270 


5425 


A0D 


Increase DRI 


0271 


5422 


AOD 


Increase DAI 


0272 


3424 


SBD 


DAI - DAM 


0273 


6516 


NZB 


Continue check 


0274 


7500 


EXC 


Reader status 


0275 


0340 




Constant 


0276 


7600 


INA 


Input status 


0277 


6503 


NZB 


Wait rdy. 


0300 


7500 


EXC 


Select read 


0301 


0301 




Select code 


0302 


7244 


IND 


Input data (RB) 


0303 


1064 




Terminal address 


0304 


2030 


LDD 


Load DBC 


0305 


4027 


STD 


Set DBI 


0306 


2026 


LDD 


Load DRC 


0307 


4025 


STD 


Set DRI 


0310 


2127 


LDI 


Load data from DBI 


0311 


3525 


SBI 


Sub data from DRI 


0312 


6011 


ZJF 


Jump on no error 


0313 


2125 


LDI 


Load read data 


0314 


7704 


SLS 


Display error data 


0315 


2127 


LDI 


Load correct data 


0316 


7705 


SLS 


Display correct data 


0317 


2025 


LDD 


Load error address 


0320 


3600 


SBC 


Form card word position 


0321 


0740 




Constant 


0322 


7706 


SLS 


Display word number 


0323 


5425 


AOD 


Increase DRI 


0324 


5427 


AOD 


Increase DBI 


0325 


3431 


SBD 


DBI - DBM 


0326 


6516 


NZB 


Continue data check 


0327 


2032 


LDD 


Load delay N 


0330 


4033 


STD 


Store dt 


0331 


0400 


LDN 


Clear (A) 


0332 


0601 


ADN 




0333 


6501 


NZB 


Delay 


0334 


2033 


LDD 


Load dt 


0335 


0701 


SBN 


(dt) - 1 


0336 


4033 


STD 


Restore ( (dt) - 1) 


0337 


6506 


NZB 


Continue delay 
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0340 


5432 


AOD 


Increase Delay 


0341 


3421 


SBD 


Delay - (delay max. ) 


03^2 


6103 


NZF 


Delay + max. 


0343 


0401 


LDN 


Max. limit made 


0344 


4032 


STD 


Restore delay 


0345 


7102 


JFI 


Go to read 


0346 


0740 




Starting address of read 


0347 


0241 




Read 


0350 


0400 


LDN 


Clear (A) register 


0351 


7777 


HLT 


Enter delay in (A) 


0352 


6003 


ZJF 


If A = 


0353 


4021 


STD 


Set N 


0354 


7104 


JFI 


Go to read 


0355 


0501 


LCN 


Load - 1 


0356 


4021 


STD 


Set N 


0357 


7101 


JFI 


Go to read 


0360 


0343 




Read address 


0361 


7500 


EXC 


CHANGE Punch Pat. Auto 


0362 


0340 




Status 


0363 


7600 


INA 


Input Status 


0364 


6503 


NZB 


Wait rdy. 


0365 


7500 


EXC 


Read primary 


0366 


0301 




Constant 


0367 


7241 


INP 


Input new pattern 


0370 


0564 




Terminal address 


0371 


7500 


EXC 


Reader status 


0372 


0340 




Constant 


0373 


7600 


INA 


Input status 


0374 


6503 


NZB 


Wait rdy. 


0375 


7500 


EXC 


Read primary 


0376 


0301 




Constant 


0377 


7232 


INP 


Input 


0400 


0724 




Terminal address 


0401 


7777 


HLT 


New pattern complete 


0402 


7101 


JFI 


Go to punch test 


0403 


0130 






0404 


2023 


LDD 


Load DAC 


0405 


4022 


STD 


Set DAI 


0406 


2030 


LDD 


Load DBC 


0407 


4027 


STD 


Set DBI 


0410 


0400 


LDN 


Clear A 


0411 


7700 


HLT 


Enter pattern in A 


0412 


4122 


STI 


Store data in DAI 


0413 


5422 


AOD 


Increase data address 


0414 


3424 


SBD 


DAI - DAM 


0415 


6505 


NZB 


Set all data 


0416 


0400 


LDN 


Clear A 


0417 


7700 


HLT 


Enter pattern in A 


0420 


4127 


STI 


Store data in DBI 


0421 


5427 


AOD 


Increase data address 


0422 


3431 


SBD 


DBI - DBM 


0423 


6505 


NZB 


Set all data 


0424 


7777 


HLT 


New pattern complete 


0425 


7101 


JFI 


Go to punch test 


0426 


0130 






0427 


0000 




Spare 
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0430 0440 Starting add. of A new 

0431 0600 Starting add. of B new 

0432 0000 

0433 0000 

0434 0000 

0435 0000 

0436 0000 

0437 0000 

0440 2525 Row 9 start of Pattern A 

0441 2525 

0442 2525 

0443 2525 

0444 2525 

0445 2525 

0446 2520 

044? 5252 Row 8 

0450 5252 

0451 5252 

0452 5252 

0453 5252 

0454 5252 

0455 5240 

0456 2525 Row 7 

0457 2525 

0460 2525 

0461 2525 

0462 2525 

0463 2525 

0464 2520 

0465 5252 Row 6 

0466 5252 

0467 5252 

0470 5252 

0471 5252 

0472 5252 

0473 5240 

0474 2525 Row 5 

0475 2525 

0476 2525 

0477 2525 

0500 2525 

0501 2525 

0502 2520 

0503 5252 Row 4 

0504 5252 

0505 5252 

0506 5252 

0507 5252 

0510 5252 

0511 5240 

0512 2525 Row 3 

0513 2525 

0514 2525 

0515 2525 

0516 2525 

0517 2525 
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0520 


2520 




0521 


5252 


Row 2 


0522 


5252 




0523 


5252 




0524 


5252 




0525 


5252 




0526 


5252 




0527 


5240 




0530 


2525 


Row 1 


0531 


2525 




0532 


2525 




0533 


2525 




0534 


2525 




0535 


2525 




0536 


2520 




0537 


5252 


Row 


0540 


5252 




0541 


5252 




0542 


5252 




05^3 


5252 




05W 


5252 




0545 


5240 




0546 


2525 


Row 11 


0547 


2525 




0550 


2525 




0551 


2525 




0552 


2525 




0553 


2525 




0554 


2520 




0555 


5252 


Row 12 


0556 


5252 




0557 


5252 




0560 


5252 




0561 


5252 




0562 


5252 




0563 


5240 


Last word of Pattern A 


0564 


0000 


Spare 


0565 


0000 


Spare 


0566 


0000 


Spare 


0567 


0000 


Spare 


0570 


0000 


Spare 


0571 


0000 


Spare 


0572 


0000 


Spare 


0573 


0000 


Spare 


0574 


0000 


Spare 


0575 


0000 


Spare 


0576 


0000 


Spare 


0577 


0000 


Spare 


0600 


5252 


Row 9 first word of pattern B 


0601 


5252 




0602 


5252 




0603 


6262 




0604 


5252 




0605 


5252 




0606 


5240 




0607 


2525 


Row 8 
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0610 


2525 


0611 


2525 


0612 


2525 


0613 


2525 


0614 


2525 


0615 


2520 


0616 


5252 


0617 


5252 


0620 


5252 


0621 


5252 


0622 


5252 


0623 


5252 


0624 


5240 


0625 


2525 


0626 


2525 


0627 


2525 


0630 


2525 


0631 


2525 


0632 


2525 


0633 


2520 


063^ 


5252 


0635 


5252 


0636 


5252 


0637 


5252 


064-0 


5252 


0641 


5252 


0642 


5240 


0643 


2525 


0644 


2525 


0645 


2525 


0646 


2525 


0647 


2525 


O650 


2525 


0651 


2520 


0652 


5252 


0653 


5252 


0654 


5252 


0655 


5252 


0656 


5252 


0657 


5252 


0660 


5240 


0661 


2525 


0662 


2525 


O663 


2525 


0664 


2525 


0665 


2525 


0666 


2525 


0667 


2520 


0670 


5252 


0671 


5252 


0672 


5252 


0673 


5252 


0674- 


5252 


0675 


5252 


0676 


5240 


0677 


2525 



Row 7 



Row 6 



Row 5 



Row 4 



Row 3 



Row 2 



Row 1 



Row 
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0700 


2525 


0701 


2525 


0702 


2525 


0703 


2525 


0704 


2525 


0705 


2520 


0706 


5252 


0707 


5252 


0710 


5252 


0711 


5252 


0712 


5252 


0713 


5252 


0714 


5240 


0715 


2525 


0716 


2525 


0717 


2525 


0720 


2525 


0721 


2525 


0722 


2525 


0723 


2520 


0724 


0000 


0725 


0000 


0726 


0000 


0727 


0000 


0730 


0000 


0731 


0000 


0732 


0000 


0733 


0000 


0734 


0000 


0735 


0000 


0736 


0000 


0737 


0000 


0740 


0000 


0741 


0000 


0742 


0000 


0743 


0000 


0744 


0000 


0745 


0000 


0746 


0000 


0747 


0000 


0750 


0000 


0751 


0000 


0752 


0000 


0753 


0000 


0754 


0000 


0755 


0000 


0756 


0000 


0757 


0000 


0760 


0000 


0761 


0000 


0762 


0000 


0763 


0000 


0764 


0000 


0765 


0000 


0766 


0000 


0767 


0000 



Row 11 



Row 12 



Last word of Pattern B 



Read Area 
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0770 


0000 


0771 


0000 


0772 


0000 


0773 


0000 


0774 


0000 


0775 


0000 


0776 


0000 


0777 


0000 


1000 


0000 


1001 


0000 


1002 


0000 


1003 


0000 


1004 


0000 


1005 


0000 


1006 


0000 


1007 


0000 


1010 


0000 


1011 


0000 


1012 


0000 


1013 


0000 


1014 


0000 


1015 


0000 


1016 


0000 


1017 


0000 


1020 


0000 


1021 


0000 


1022 


0000 


1023 


0000 


1024 


0000 


1025 


0000 


1026 


0000 


1027 


0000 


1030 


0000 


1031 


0000 


1032 


0000 


1033 


0000 


1034 


0000 


1035 


0000 


1036 


0000 


1037 


0000 


1040 


0000 


1041 


0000 


1042 


0000 


1043 


0000 


1044 


0000 


1045 


0000 


1046 


0000 


1047 


0000 


1050 


0000 


1051 


0000 


1052 


0000 


1053 


0000 


1054 


0000 


1055 


0000 


1056 


0000 


1057 


0000 
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1060 0000 

1061 0000 

1062 0000 

1063 0000 Last word of read 

1064 0000 

1065 0000 

1066 0000 

1067 0000 
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